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Introducción 


Son varias las razones que me han animado a escribir estas páginas. La primera es 
que los modelos PCW de Amstrad son mucho más que una herramienta para trata- 
miento de textos. El lenguaje BASIC que incorporan se muestra muy potente sobre 
todo para el trabajo de ficheros, sin embargo la bibliografía existente incide más en 
el trabajo de Locoscript y descripción del sistema operativo CP/M 3.0 Plus, que en 
este campo de la programación. 


La segunda razón, es la de intentar, de alguna forma, la compatibilidad entre estos 
modelos y el CPC 6128, que dispone también de la misma versión del S.O. CP/M y 
cuyo lenguaje BASIC residente en ROM, aún habiendo sido creado por la misma 
firma, Locomotive Software, no permite un fácil intercambio de programas, que 
enriquecería sin duda a ambos modelos. El capítulo O está dedicado a mostrar como 
puede el CPC 6128 trabajar en Mallard BASIC y por tanto incorporar los progra- 
mas del PCW a su biblioteca. 


De esta forma, el libro está dedicado tanto a los usuarios de los PCW, como a los 
del CPC 6128, que se sienten animados a trabajar con su ordenador en Mallard BA- 
SIC. 


El contenido del libro está dividido en 3 partes. La primera, capítulos 0 y 1, trata de 
la instalación de Mallard BASIC en los Amstrad PCW y CPC 6128. La segunda que 
comprende los capítulos 2 y 3, está dedicada a profundizar en el manejo de matrices 
(variables indexadas), como estructuras de almacenamiento transitorio y manipula- 
ción de datos y a la ordenación de datos, con descripción teórica y práctica de diver- 
sos métodos, incluída la ordenación por fechas, para el trabajo de gestión. Por últi- 
mo, los capítulos dedicados a los ficheros: secuenciales, aleatorios y de acceso por 
claves. 

Todos los capítulos se ilustran con numerosos ejemplos y programas útiles, sobre 
los temas tratados, además se incluyen como apéndices a los mismos programas 
completos, que además de su valor didáctico, permiten el uso directo como progra- 
mas de aplicación. 
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0. Mallard BASIC para CPC 6128 


1. INTRODUCCION 


Son dos los objetivos de este capítulo, por un lado el análisis de la posible compati- 
bilidad entre el LOCOMOTIVE BASIC de los CPC y en particular del CPC 6128 
con el MALLARD BASIC de los PCW y por otro la posibilidad de utilizar 
MALLARD BASIC en el CPC 6128. 


2. COMPATIBILIDADES DE LOS LENGUAJES 


Analizando el grado de similitud de algunas órdenes en ambas versiones, desde el 
punto de vista de un CPC 6128 y como consecuencia la posibilidad de adaptación de 
programas de una a otra versión BASIC, se desprende que existe un alto grado de 
dificultad en dicho intercambio, tanto mayor, cuanto más alto es el nivel de progra- 
mación. 

A título de información se incluyen a continuación algunas de las órdenes y fun- 
ciones del BASIC del CPC 6128 y su equivalente al Mallard del PCW. 

— ON BREAK CONT - OPTION RUN (activa) OPTION STOP (desactiva). 


— CALLE - CALL la dirección está contenida en una variable en vez de utilizarse el 
número directamente. 

— CHAIN, MERGE, CHAIN MERGE. Funciona de forma análoga pero Mallard 
BASIC puede conservar el valor de las variables. 

— Funciones para trabajar con números INT, CINT, CREAL, FIX. Existen tam- 
bién en Mallard, e incluso se duplican debido a la existencia de numeros reales en 
precisión simple y en doble precisión (ver capítulo 2) por ejemplo CREAL da lu- 
gar a CDBL y CSNG (doble y simple respectivamente). 

— Catálogo. El CPC dispone de CAT en BASIC y DIR en CP/M, en Mallard se 
dispone de DIR, FILES que necesita una plantilla de búsqueda y FIND$ para 
buscar un fichero concreto. 

— CLEAR. En su uso más simple es igual en ambos BASIC. 


— CLES. No está disponible «desgraciamente» en el Mallard y debe sustituirse por 
PRINT CHR$ (27) + “E” + CHR$ (27) + ““H” que borra y lleva el cursor al 
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origen o bien solo la mitad de la sentencia que no mueve el cursor, pero si borra. 
(Ver apéndice 6). 

— Medida de los ángulos. Mientras que el CPC permite trabajar en grados sexage- 
simales y en radianes (DEG y RAD), el Mallard sólo lo hace en radianes. Esta di- 
ficultad no es mucha si se tiene en cuenta la conversión de grados a radianes 
(360% = 27 radianes) 


G y z , 
Rad. = siendo G = N* grados sexagesimales a convertir 


Rad. = Radianes equivalentes 
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La función PI no existe en Mallard y por tanto debe ser sustituida por su valor. 


— Funciones de error. ERL y ERR son iguales en ambas versiones y la DERR 
equivale en Mallard a OSERR. 


— Fin de fichero. En ambas versiones se utiliza EOF, aunque en Mallard debe lle- 
var además el indicativo de número de fichero, puesto que pueden existir varios 
abiertos simultáneamente. 


— Definir teclado. Mallard no dispone de KEY ni KEY DEF, por tanto la redefini- 
ción del teclado ha de hacerse con CP/M (SET KEYS) 


— Impresora. Las órdenes LIST y PRINT para impresora se utilizan añadiendo el 
indicador de canal ++8, en Mallard son equivalentes a L LIST y L PRINT respec- 
tivamente. 


— Pantalla. Frente a los tres modos de pantalla del CPC, el PCW sólo dispone de 
uno, de 90 columnas x 32 líneas, sin colores. 


— Sonido. No existen en Mallard sonidos, a excepción del pitido emitido en ambos 
modelos por PRINT CHRS$ (7). 


— INKEYS. Se utiliza de igual forma en ambos modelos. Mallard no dispone de 
INKEY. 


— LOCATE. Debe sustituirse en Mallard por la expresión. 
PRINT CHRS (27) + “Y” + CHR$ (32 + F) + CHR$ (32 + C) 


donde F y C son respectivamente fila y columna. 


— Ficheros. Es aquí donde la diferencia es mayor, ya que el CPC 6128 sólo dispone 
de ficheros secuenciales, mientras en Mallard se dispone de secuenciales, aleato- 
rios y por claves. (El CPC dispone de ficheros aleatorios a través de extensiones 
RSX creadas por RANDOM,BIN). 


3. MALLARD BASIC PARA CPC 6128 


La posibilidad de utilizar Mallard BASIC en un CPC 6128 es mucho más interesante 
que la de tratar de traducir programas de una versión a otra. 
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Quizá algunos lectores piensen que no es posible utilizar el Mallard BASIC del PCW 
por el CPC 6128, pero esta posibilidad existe y es sencilla de realizar. 


Si ha observado el contenido del disco del PCW verá que el BASIC está contenido 
como fichero CP/M ejecutable (BASIC. COM) y que ambos modelos utilizan la 
misma versión de sistema operativo, CPM 3.0 Plus. 


La única dificultad es que el formato de disco utilizado por ambos es distinto, pero 
el PCW es muy receptivo con los discos del CPC 6128. 

Veamos el proceso paso a paso de formación de un disco para CPC 6128 que con- 
tenga el Mallard BASIC del PCW., 


1) Con el CPC 6128 y en un disco virgen formateado (system format) mediante 
DISCKIT 3 (cara 1 discos de sistema), hagamos una copia de los ficheros 
SUBMIT.COM, SETKEYS.COM y C10CPM3.EMS. Esta copia puede realizarse 
con DISCKIT 3, borrando posteriormente lo que no interese o bien mediante 
PIP.COM. 


Para aquellos usuarios no familiarizados con PIP, se indica a continuación, cómo 
pueden copiar los archivos mencionados con dicha orden. 


— Entrar en CP/M mediante CP/M. 


— Tras la impronta A > teclear A > PIP y aparecerá una nueva impronta, consis- 
tente en un asterisco, añadir ahora la expresión 


* B: = A: SUBMIT.COM 


— Cuando la pantalla lo indique, sacar el disco de sistema e insertar el virgen para 
grabar el fichero leído anteriormente. Tenga en cuenta que la unidad A: será el 
disco fuente y la B: el disco destino. 


— Una vez copiado el fichero, repetir para los otros dos indicados anteriormente. 


2) Aunque no es estrictamente necesario, copie también del disco de sistema 
ED.COM y DIR.COM, le será de utilidad tenerlos en el mismo disco. Utilice PIP en 
la forma indicada. 


3) Lleve el disco tal como lo ha preparado a un PCW, instale el CP/M en el PCW, 
llame al programa PIP tal como lo hizo en su CPC, una vez obtengan la impronta *, 
teclee 


* B: = A: BASIC.COM 


Cuando se lo indique saque el disco fuente del PCW e introduzca su disco preparado 
en el CPC, de esta forma habrá copiado el pgm BASIC.COM del PCW en un disco 
de CPC (el disco A: será el maestro del PCW y el B: el preparado por el CPC). 


Ahora ya tenemos el Mallard BASIC preparado para ser usado por el CPC 6128, pe- 
ro deben añadirse dos ficheros más, el primero que llamaremos TECLADO.KEY 
que nos va a permitir redefinir el teclado, para hacerlo más operativo y el segundo, 
al que daremos por nombre PROFILE.SUB que permitirá el autolanzamiento del 
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BASIC, con la orden única CP/M cuando se desee cargar el Mallard BASIC en el 
ordenador CPC 6128. 


4) Para crear el fichero TECLADO.KEY cuyo contenido será 


E 128 "RUN"M" 
15N" '128*" 


E 129 "LIST " 

13N E 129 

E 130 ""CHR$(27)+ "E "+CHRS(27)4"H3t0 mn 
LAN"? 130 "" 

E 131 "DIR"M" 

ES ES 

E 132 "FOR * 

ZONA a 

E 133 "NEXT" 


LEN EST 1330 

E 134 "INPUT " 
a4N"-” 2 1734 .“u 

E 135 "EDIT " 
10N" “135*" 

E 136 "CHR$(" 
11009136" 

E 137 “GOTO " 
NI 

BN "CA" 

IN USE" 


(los símbolos que aparecen en el listado son % = 1! de la tecla £, * = apóstrofe de 
la tecla 7, del teclado numérico superior). 

Puede utilizarse el programa ED.COM, que es el editor de CP/M y que grabamos 
anteriormente (puede usar otro editor o el incluido en el apéndice 7). 

Si no conoce el funcionamiento de este editor siga atentamente las instrucciones que 
se indican a continuación, ya que el manejo del editor de CP/M no es precisamente 
sencillo y la disposición de todas sus funciones escapan de los objetivos de este libro. 


Entre en CP/M y tras la impronta A > invoque al editor mediante la orden 


A > ED TECLADO.KEY 


que además de llamar al editor crea un fichero de nombre TECLADO.KEY. En 
pantalla aparecerá el mensaje NEW FILE indicando que ese fichero no existía en el 
disco. 


Comio verá aparece también una nueva impronta :* teclee a continuación una i y 
presione RETURN, en pantalla habrá ido obteniendo (i indica a ED que se van a in- 
sertar textos en el fichero) 


A > ED TECLADO.KEY 

NEW FILE 
Lo 
l: 


La impronta 1: le indica que se encuentra en la primera línea del fichero y que 
puede introducir datos, introduzca E 130 “RUN 1! M” y presione RETURN, el edi- 
tor pasará a la segunda línea y así sucesivamente. 


Teclee todas las líneas indicadas anteriormente, con cuidado de no cometer errores, 
los cursores no funcionarán, si tiene que borrar caracteres, utilice CONTROL + H 
(HB. 


Cuando haya terminado, presione CONTROL + Z (1Z) para salir de la inserción. 
Nuevamente aparecerá la impronta :* teclee ahora e seguido de RETURN 


e 


y el fichero será grabado en el disco. 


Puede comprobar su contenido con la orden TYPE de CP/M. Si tiene dificultades, 
borre el fichero e inténtelo de nuevo. Por si le son de ayuda, se indican algunas fun- 
ciones de ED 


H' a pasa las líneas del fichero del disco al buffer del editor (carga del fichero) 
+ t Lista el fichero 

n:k Borra la línea n 

¡ Inserta 

Az Sale de la inserción 

Ac Abandona ED 

e Graba el fichero 


Para modificar una línea es preferible borrarla e insertar una nueva. En todo caso y 
si desea mayor conocimiento del funcionamiento de ED consulte el capítulo 8 o un 
manual dedicado a CP/M. 


5) Si consiguió realizar el fichero anterior, no tendrá ninguna dificultad en crear con 
ED el siguiente, de nombre PROFILE.SUB y cuyo contenido es 


TECLADO.KEY 
BASIC INICIAR 


El proceso visto en pantalla sería 


A > PROFILE.SUB ___|L ___ ____ PROFILE SUB + RETURN 
NEW FILE 


1 + RETURN 
TECLADO KEY + RETURN 
BASIC INICIAR + RETURN 


'e + RETURN 





6) Como última operación vamos a crear un programa BASIC con el Mallard BA- 
SIC copiado anteriormente, para poder trabajar con él, entre en CP/M y posterior- 
mente teclee 


A > BASIC 


y aparecerá el mensaje de presentación del Mallard 
Mallard - 80 BASIC with Jetsam .... 


indicándole el espacio libre para BASIC, Tras el mensaje OK equivalente al Ready 
del BASIC del CPC 6128, teclee este sencillo programa 


10 WIDTH 79 
20 NEW 


grábelo mediante 
SAVE “INICIAR” 


Esto permite adaptar el número de columnas, de 90 en que trabaja el PCW a las 80 
del modo 2 del CPC. 


Como comprobación final, use DIR para ver el contenido del disco, recuerde que si 
está en Mallard, esta orden es válida. El contenido de su disco debe ser el siguiente 
(si copió DIR.COM puede utilizar la orden DIR [FULL] que da mayor informa- 
ción). 


dir 
A SUBMIT COM SETKEYS COM BASIC COM ED COM 
A C1OCPM3 EMS DIR COM INICIAR BAS PROFILE SUB 


A TECLADO KEY 
A>dir (fulll 
Sczanning Directory 


Sorting Directory 


Directory For Drive A User 0 


Name Bytes Recs Attributes Name Bytes Recs Attributes 


BASIC COM 28k 224 Dir RW C10CPM3 EMS 25k 200 Dir RW 
DIR COM 15k 114 Dir RW ED COM 10k 73 Dir RW 
INICIAR BAS 1k 1 Dir RW PROFILE SUB 1k 1 Dir RW 
SETKEYS COM 2k 16 Dir RW SUBMIT COM 6k 42 Dir RW 
TECLADO KEY 1k 3 Dir RW 

Total Bytes = 89k Total Records = 674 Files Found = 9 
Total 1k Blocks = 89 Used/Max Dir Entries For Drive A* 11/ 64 


El primer directorio corresponde a la orden DIR desde Mallard BASIC o bajo 
CP/M como orden permanente y el segundo a DIR.COM de CP/M (orden transito- 
ria). 


Desde este momento para disponer de Mallard BASIC en su CPC 6128, basta con 
que introduzca el disco formado y llame a CP/M mediante 


¿CP/M 


Las teclas de borrado CLR y DEL funcionarán normalmente, así como los cursores 
izquierdo y derecho, pero no los cursores arriba y abajo. 


Las teclas de función contienen los siguientes comandos BASIC 


fO RUN + RETURN 

fl LIST 

f2 Borrar pantalla (CLS) 
f3 DIR + RETURN 

f4 FOR 

f5 NEXT 

f6 INPUT 

f7 EDIT 

f8 CHR$ ( 

f9 GOTO 


Estos comandos se consiguieron con el fichero TECLADO.KEY, si lo desea, puede 
modificarlo, para introducir otro más acorde con sus gustos y hábitos de programa- 
ción, basta con cambiar en las líneas que comienzan por E, el contenido entreco- 
millado. 
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MALLARD BASIC PARA PCW 8256 Y 8512. 
INSTALACION 


1. GENERALIDADES 
2. INSTALACION 
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1. Mallard BASIC para PCW 8256 y 8512. 
Instalación 


1. GENERALIDADES 


La instalación de Mallard BASIC en su ordenador es inmediata, basta con cargar 
CP/M desde la cara 2 de los discos de sistema y teclear BASIC tras la impronta A 
>, de esta forma el programa BASIC.COM de CP/M es ejecutado y puede dispo- 
nerse a trabajar con la versión BASIC de los PCW de Amstrad. 


Dos son los inconvenientes de este sistema, por un lado las órdenes de Mallard BA- 
SIC, habrán de ser deletreadas, lo cual produce un cierto grado de lentitud en 
aquellas personas con poca práctica de mecanografía, a la vez que provoca frecuen- 
tes errores de síntaxis. Por otro lado resultaría más cómodo que con el simple hecho 
de encender el ordenador, el BASIC estuviese disponible, tal como lo hace LocoScript. 


Vamos a tratar de resolver en este capítulo ambos inconvenientes y además simultá- 
neamente, es decir obtener una instalación con autoarranque y un teclado especial- 
mente preparado para programar en BASIC, tal como se hizo anteriormente para 
los CPC, 


2. INSTALACION 


Para la preparación de un disco ““llave en mano””, que es como se conoce a las insta- 
laciones de aplicaciones automatizadas, es necesario preparar convenientemente un 
disco, incluyendo en él los programas CP/M que permiten dicha operación. 


Proceda de la siguiente forma: 


1) Formatear un disco virgen en formato de sistema. Puede utilizar para ello el 
programa DISCKIT de CP/M. 


2) Mediante PIP copie en el disco los siguientes programas. 


— J14SCPM3.EMS. Si no dispone en su juego de discos de este programa en 
concreto, puede utilizar otro cuyo nombre difiera en los 3 caracteres posteriores a la 
J, pues se tratará de otra versión CP/M pero válida a todos los efectos. 


Este programa se encarga de iniciar automáticamente el CP/M, en el momento del 
encendido. Cualquier disco conteniendo este programa se convierte en “Disco de 
arranque diario CP/M””. 


— SUBMIT.COM. Este programa es necesario para manejar el fichero 
PROFILE.SUB que será creado más tarde y almacenado en el mismo disco. 


— SETKEYS.COM. Igualmente es necesario para manejar el fichero 
TECLAS.KEY que se describe a continuación y que guardará la información relati- 
va a la definición del teclado, adaptándolo al BASIC. 


— ED.COM. Grábelo en su disco, será utilizado únicamente en la creación de los 
dos ficheros mencionados y puede posteriormente borrarse a fin de liberar espacio 
en el disco. 


— LANGUAJE.COM. Este programa sólo debe grabarlo si desea modificar el len- 
guaje inicial de su ordenador, que si es castellano corresponde a LANGUAGE 7 (ver 
fichero PROFILE.SUB). 


La forma de realizar las copias no es única, puede copiarse el disco entero (cara 2) 
con DISCKIT y borrar con ERA posteriormente los programas y ficheros que no in- 
teresen o bien utilizar la orden PIP en la siguiente forma. 


Entre en CPIM y tras la impronta A > teclee 
A > PIP 


obtendrá una nueva impronta, formada por el símbolo * (asterisco) teclee ahora el 
primer programa a copiar 


* B: = A: J14SCPM3.EMS 


el disco identificado como B: es el virgen y el A: el de sistema (cara 2). En unidades 
con un solo disco (PCW 8256) debe procederse al cambio de disco, cuando se indi- 
que por pantalla. 


Repita la operación para SUBMIT.COM, SETKEYS.COM y ED.COM, también 
para LANGUAGE.COM si opta por cambiar de lenguaje (en principio puede no ha- 
cerlo y posteriormente incluirlo si lo desea). 


3) Una vez copiados los programas vamos a proceder a confeccionar un archivo, al 
que denominaremos TECLAS.KEY y que contendrá información sobre la adapta- 
ción del teclado a BASIC, de forma que con una sola pulsación de tecla, se obtengan 
órdenes completas. 


Puede utilizarse en este fin cualquier tratamiento de textos, que genere textos AS- 
CH, pero no LocoScript directamente(l), si no dispone un tratamiento de textos 
apropiado, utilice el editor de textos de CP/M ED.COM, que copió anteriormente. 
El manejo de este editor no es precisamente sencillo, ni cómodo, pero dado que el 


(1) LocoScript no genera ficheros ASCII, pero en el apéndice 5, se indica como transformar ficheros en 
este formato a ASCII, de forma que puede, siguiendo los pasos oportunos, utilizar LocoScript a los fines 
de este capítulo, además el apéndice 7 le muestra un pequeño editor de fácil manejo apropiado a estos fi- 
nes. También disponen los PCW del programa RPED.BAS que es un editor escrito en BASIC, cualquiera 
de las opciones expuestas puede producir el fichero indicado. 
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fichero es pequeño, no le resultará difícil. En el capítulo O y 8 puede obtener infor- 
mación sobre como se maneja. Dos recomendaciones al efecto: es preferible borrar 
una línea (k) mal escrita, que intentar rectificarla, si la línea incorrecta aun no ha si- 
do introducida (RETURN) puede retroceder sobre lo escrito borrando, mediante 
AH(ALT + H). 


Cuando invoque a ED para crear el fichero, cuyo contenido línea a línea, se incluye 
a continuación, utilice la orden 


A > ED TECLAS.KEY 


y que corresponde al nombre adoptado para este fichero. 


129 "LIST " 

130 "SAVE""" 

131 “"LOAD""" 

132 "CHR5 (" 

133 "RUN"M" 

134 "AUTO" 

135 "EDIT " 

136 "PRINT CLSS”M" 
151 "PRINT CLS$" 
152 "ELSE " 

153 "FOR " 

154 "GOTO " 

155 “INPUT " 

156 "PRINT FN LOCATES (" 
157 "NEXT " 

158 "THEN " 

02 A EA 

02 Ss n-o0 130' ”" 

00 CU LIT 

00 Ss -.Sso 132' w 

73 -. 133' .“w 

77 Ss oo 134' . 


0 0 4 4 4 9d 00000000YyaAY 


62 A-SA "MU" tISI. 
58 A SA "“*152'" 
53. ACSA MU OEIS3s." 
Be A SA "*t154q" 
35. A. SA ""“IBS'" 
36 A SA ""'156'" 
46 A SA ""'157'" 
51 A SA “"*"'158**" NOTA El simbolo? del Iistado corresponde a 


Si las palabras BASIC utilizadas no le son de utilidad y prefiere otras, puede modifi- 
carlas creando un fichero más a su gusto. 


En el capítulo O se describe sucintamente la forma de crear este tipo de ficheros con 
el editor ED de CPIM. 

4) Una vez corregido y grabado el anterior fichero, hay que confeccionar otro, con 
ED o con el tratamiento de textos, si optó por esta solución. 


El contenido de este fichero es muy simple 


setkeys teclas.key 
basic iniciar 


El nombre «obligatorio» será PROFILE.SUB. 


5) Sólo queda una última cosa, definir el programa ““INICIAR” incluido en el ante- 
rior fichero. 


Se trata de un programa BASIC muy corto, de forma que tras la impronta de 
CP/M, llame Mallard BASIC en la forma 


A > BASIC 


Introduzca el siguiente listado y sálvelo con SAVE ““INICIAR”” 


10 215 é=C HRS '27+"E"4CHRE (273430 

20 DEF FN locatesS(fil,col>=CHRS (27)4+"Y"+CHR$ (324+fi1>+CHR5$ (324+c01) 
30 ivideos=CHRS (27)+"p" 

40 nvideos=CHR$ (27)+"q" 

50 DELETE 


Se trata como verá, de añadir unas pequeñas ayudas a la programación. La línea 10 
define la variable CLS$ que mediante PRINT producirá un borrado de pantalla y 
cursor al origen, similar al efecto producido por los de otras versiones BASIC. 


La línea 20 define una función que emula el LOCATE de otras versiones y permite 
mediante FN LOCATES (F, C) imprimir en texto en la fila y columna indicados. 


IVIDEOS y NVIDEOS son dos variables que permiten invertir el color de la pantalla 
y devolverlo a la normalidad respectivamente. 


La idea queda abierta, si conoce trucos o herramientas de trabajo que desea utilizar, 
puede aprovechar y ampliar las posibilidades de este programa (ver apéndice 6). 


3. CONSECUENCIAS DE LA INSTALACION 


Apague el ordenador, introduzca el disco que ha ido construyendo y que debe conte- 
ner 


dir 
A BASIC COM SETKEYS COM . LANGUAGE COM 


A TECLADO KEY TECLAS KEY . INICIAR BAS +: 


A SUBMIT COM 


enciéndalo y en pantalla irá obteniendo 


ED COM : 
PROFILE SUB : 


A > SET KEYS TECLAS.KEY 


A > BASIC INICIAR 


TECLAS BAK 
J14SCPM3 EMS 


A continuación aparecerá el conocido mensaje de Mallard BASIC. Ahora se en- 
cuentra en situación de trabajar con él, aprovechándose tanto las variables y fun- 
ciones definidas en INICIAR.BASIC como las órdenes BASIC que obtendrá del 


acuerdo con la siguiente tabla 


FOR 
GOTO 


INPUT 
THEN 

ELSE 
PRINT CLS$ 
NEXT 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


ZOCO 





PRINT FN LOCATES ( 


Las ventajas son evidentes, pero los inconvenientes no tanto, el mayor es sin duda la 
pérdida de capacidad del disco. El método es ideal para programar, pero no será 
tanto si el programa desarrollado utiliza ficheros grandes, que necesita la máxima 
capacidad. En estos casos utilice este disco exclusivamente para cargar el BASIC y 


salve sus programas y ficheros en otros discos. 
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CAPITULO 2 
MATRICES 


. CONCEPTOS PREVIOS 
. MATRICES NUMERICAS Y ALFANUMERICAS 


. DIMENSIONES DE UNA MATRIZ 


* Ejercicios básicos sobre matrices 


. CARGAR UNA MATRIZ 


* Asignación con INPUT 
* Asignación con READ-DATA 
* Asignación desde ficheros 


. ERRORES EN EL MANEJO DE MATRICES 


. OPERACIONES MAS FRECUENTES CON MATRICES 


* Suma de los elementos de una lista 

Suma de los elementos de una tabla 

Búsqueda del mayor o menor de una lista 

Corregir datos de una matriz 

Anular un elemento en una lista 

Añadir elementos a una lista 

Búsqueda de elementos alfanuméricos de listas y tablas 


XK XK XX % 


. EJERCICIOS RESUELTOS 


1) Notas medias de un curso 

2) Producto de una matriz por un valor 
3) Inversa de una matriz 

4) Determinante de una matriz cuadrada 
5) Sistemas de ecuaciones lineales 


2. Matrices 


1. CONCEPTOS PREVIOS 


1.1. Las variables 


Como conocerá, el PCW al igual que otros ordenadores, permite trabajar con va- 
rios tipos de variables, formando dos grandes grupos: simples e indexadas (matri- 
ces). 

Las variables simples, son sin duda las más intuitivas y su característica principal es 
la de poder almacenar en ella un solo dato, sin relación con otros. Por el contrario 
las indexadas permiten almacenar datos relacionados entre sí. Dado que las va- 
riables simples son de fácil manejo, se dedica este capítulo a las indexadas, por 
cuanto su conocimiento, suele estar mucho menos extendido. 


En el gráfico siguiente se han sintetizado todos los tipos de variables existentes, 
simbolo que las caracteriza y rango de existencia, con el fin de permitir, de forma 
clara, una visión de conjunto sobre las mismas. 


ENTERAS Rango (—32 768 a 232 768) 
(Y) 
NUMERICAS | ss SENCILLAS 7 cifras significativas 
REALES (M) (—1 x 1038 a 1 x 1038) 
SIMPLES DOBLE PRECISION 16 cifras 
| (4) significativas 
AL FANUMERICAS Rango (0 a 255 caracteres) 
VARIABLES (5 
ENTERAS 
NUMERICAS ES SENCILLAS 
: DOBLE PRECISION 


INDEXADAS 


() 
Al FANUMERICAS 


Como puede observarse, a efectos de clasificación, los dos grandes grupos se subdi- 
viden de igual forma, por tanto existen igual número de tipos de variables simples, 
que de indexados. 
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A continuación se describen someramente todos los tipos. 


* Variables numéricas. Son aquellas que permiten almacenar números y pueden ser 
de dos tipos. 


— Enteras. Almacenan sólo números enteros (números sin parte decimal, si se asig- 
nan números con decimales, estos son redondeados al entero mas próximo). Se iden- 
tifican con el símbolo Vo. 


— Reales. Almacenan sólo números reales (números con o sin decimales). Según su 
precisión se subdividen en dos. 
e Sencillas. Los números son tratados en precisión sencilla, que arroja siete 
cifras significativas, es decir, siete cifras exactas. Se identifican con !. 
e Doble precisión. Los números se tratan con precisión mayor, de forma que se 
disponen de dieciseis cifras significativas. Se identifican con H. 


* Variables alfanuméricas. Almacenan cadenas de caracteres (números, letras y 
símbolos). A pesar de que una cadena puede estar formada sólo por números, su ca- 
racter es el de ““texto”” y no numérico propiamente dicho. 


Esta descripción es válida tanto para las variables simples, como para la indexadas. 


1.2. Variables indexadas o matrices 


Como ya se ha mencionado las variables simples permiten tratar datos uno a uno, de 
forma independiente, pero existen muchas ocasiones, en que es necesario tratar con- 
juntos de datos que aún siendo distintos entre si, tienen un nexo común, por 
ejemplo del conjunto formado por todas las estaturas de los alumnos de una clase, 
el tratamiento de estos datos de naturaleza homogénea debe permitir una manipula- 
ción como conjunto además de como elementos aislados, de aquí surge la necesidad 
de disponer de variables unidas por un lazo común y estas reciben el nombre de va- 
riables indexadas o matrices. 


El ejemplo que sigue ilustra la necesidad mencionada 





CLASE N* A 
Alumno Estatura 
1 1.50 
2 1.54 
3 1.52 
4 1.61 
5 1.49 
20 1.62 
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Utilizando variables simples, haríamos corresponder a la var A = 1,50 a la 
B = 1,54 y así sucesivamente. Si tuviésemos que calcular la estatura media, la 
expresión sería 


M=(A+B+C+...)/20 


Este tipo de cálculo resulta muy largo y pesado y por tanto inapropiado, sin embar- 
go si consideramos la posibilidad de que existan unas variables de igual nombre, 
identificadas con un índice (1 a 20) que hagamos corresponder con el número de or- 
den del alumno el proceso de cálculo podrá regirse por un bucle FOR que varíe de l a 
20. Esta es la idea que se persigue y que ha dado origen a las variables indexadas, co- 
nocidas también como matrices por la analogía con dicha estructura matemática. 


(1.50, 1.54, 1.52, 1.61, 1.49, ...., 1.62) Matriz de estaturas 
(Al, A2, A3, As, AS, ..... A20) Matriz de variables 


El estudio de las matrices, resulta pues fundamental en programación, ya que per- 
mite un cómodo, rápido y eficaz tratamiento de bloques de información. 


1.3. Concepto informático de matriz 


Una matriz es un bloque o conjunto de celdas reservadas en la memoria del ordena- 
dor, que pueden ser referenciadas con un nombre simple y común a todos los ele- 
mentos del conjunto, y distinguidas mediante un número (índice) de orden, que se- 
ñala a una celda en particular. 


Gráficamente estas estructuras nos recuerdan a las matrices matemáticas y de ahí su 
nombre, aunque su contenido y manejo se aparta del concepto matemático. Por 
ejemplo, un bloque formado por 5 celdas puede representarse de dos formas: 


Horizontal 1121 3] 4] 5! Matriz fila (vector) 


Vertical 


Matriz columna (vector) 





Si llamamos A, a cualquiera de las matrices anteriores, el nombre de sus elementos 
sería 


ln o dis Me 


es decir, el nombre es común y se identifican con un subíndice que representa el or- 
den (1, 2, 3, 4 y 5). 


23 


En BASIC los índices se escriben entre paréntesis, de forma que el ejemplo se 
expresaría 


a(1), a(2), a(3), a(4) y a(5) 


Como veremos a continuación, también pueden reservarse bloques de dos dimen- 
siones e incluso de más; por ejemplo: 





Bloque de 3 x 5 





DOE 


Los índices de una matriz de dos dimensiones, no corresponden a la numeración ex- 
puesta en el ejemplo anterior, sino que se utiliza un índice doble (2 números), el pri- 
mer número indica la fila a que pertenece y el segundo, la columna. En el ejemplo 
anterior sería: 


COLUMNAS 
12 21 ga 42 $4 





El elemento de índice 2.4, sería el situado en la fila 2? y columna 4?. 


Por último, nos falta el nombre. Como indicamos anteriormente, el nombre es co- 
mún para todo el conjunto, por tanto, si llamamos A al conjunto del ejemplo últi- 
mo, sus elementos serán conocidos como All, A12, A13... A35, que es la no- 
menclatura matemática. En BASIC, los nombres de los elementos son A(l,1); 
A(1,2); A(1,3); ....; A(3,5); es decir, la sintaxis general es 


Nombre de la matriz (común a todos sus elementos) 


(F, 0) 


/columna 
fila 


— El nombre de una matriz puede ser cualquiera que sea válido para variables en el 
BASIC del Amstrad, por ejemplo: 


Consideraciones 
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NOMBRES DE MATRICES 


Válidos No válidos 
A 78 Z 
HOLA 07 
B7 4B 


— Los subíndices comienzan su numeración en cero (0) o en uno (1). (Ver epígrafe 
dedicado a la sentencia DIM). 


— Los subíndices, en su sentido más amplio, pueden ser: 
— Números (p.e. 4) 
— Variable numérica (p.e. VEL) 
— Expresión numérica (p.e. A*4/2) 
Tanto las variables numéricas como los resultados de las expresiones, con- 
tendrán o darán como resultado números enteros positivos (naturales). 


— Lista.—Se denomina lista a una matriz de una sola dimensión (vector). 
— Tabla.—Se conoce como tabla a las matrices de dos dimensiones. 


— El número de elementos de una matriz viene determinado de forma explícita por 
la orden DIM y de forma implícita se toma 10. 


2. MATRICES NUMERICAS Y ALFANUMERICAS 


Al igual que en las variables simples, existen matrices numéricas y alfanuméricas, 
dependiendo de su contenido: 


Numéricas Números válido en BASIC (*) 


Alfanuméricas Cadenas válido en BASIC seguido 
del símbolo $ 





(*) Se utilizarán los símbolos +, !, Vo, si se omite se toma ! (ver primer epigrafe del capitulo) 


Respecto al nombre, son válidas todas las reglas de uso en las variables simples. De- 
be hacerse notar que para el ordenador, las variables siguientes son distintas: 


AT - Variable simple numérica 
A1$  - Variable simple alfanumérica 
A (1)  - Elemento de la matriz numérica A 


A $ (1) - Elemento de la matriz alfanumérica A $ 


Estas cuatro variables pueden coexistir perfectamente en un programa, por cuanto 
para el ordenador son totalmente distintas. De todos modos, no resulta una práctica 
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aconsejable, pues la confusión viene por parte del programador y siendo tan amplia 
la posibilidad de la elección de nombres, el utilizar esta técnica resulta poco razo- 
nable, a menos que deliberadamente se desee programar con algo de ocultismo. 


Como ejemplo de ambos tipos, representamos gráficamente el contenido de dos lis- 
tas, una numérica y otra alfanumérica. 


Nombre de  N” de Nombre y contenido 
la matriz elementos de los elementos 


IRC [710 50 DE SO EA 


VINOS 3 VINOS(0) VINOS(1) 






DAT 4 








RIOJA VALDEPEÑAS JEREZ 


Notas: 


Se considera en el ejemplo el cero (0) como primer índice. 
Las matrices numéricas sólo pueden contener números. 


Las matrices alfanuméricas, además de textos o palabras propiamente dicho, 
pueden contener números, pero éstos serán considerados como palabras (conjun- 
to de caracteres) y no como tales números. 


Las denominaciones texto, palabra o cadena se utilizan habitualmente con el mis- 
mo significado: conjunto de caracteres (en inglés string). 


Los elementos de las matrices numéricas están sujetos a las reglas y funciones 
matemáticas propias de los números y variables numéricas. 


Los elementos de las matrices alfanuméricas únicamente podrán utilizarse con las 
reglas y funciones propias del BASIC para el manejo de palabras (strings). 


A continuación exponemos un cuadro, no exhaustivo, de operaciones y funciones 
válidas y no válidas con elementos de matrices, a título de ejemplo: 


Válido No válido 

A(1) * A(8)/2 A$(4)/2 

A$(3) + Z5(0) VAL (A()) 

X$(1) + “PEPE” AS(0) + B(4) + 38 
VAL (X$(1)) LEN (A(4)) 

LEFTS (Z5$,4) MIDS (A(4), 6, 8) 
A(l) * Z(K) (| Y K VAR NUM 


3. DIMENSIONES DE UNA MATRIZ 


Hasta ahora hemos visto conceptos generales sobre las matrices, bajo el punto de 
vista informático y en concreto dentro del lenguaje BASIC. 
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Veamos ahora cómo se utilizan desde el BASIC del Amstrad (aunque únicamente 
nos referimos a los Amstrad PCW 8256 y PCW 8512, suele ser común a la mayoría 
de los ordenadores). 


La sentencia DIM 


La sentencia DIM se utiliza para establecer el número de elementos de una matriz, 
de tipo numérico o alfanumérico. 
La sintaxis general es 
DIM nombre (N) nombre: nombre válido para variables 
N: número de elementos (dimensión) 
Así. DIM A(4) reserva 5 espacios de memoria para poder guardar en ellos los valo- 
res de los elementos de la matriz A, que serán A(0), A(1), A(2), A(3) y A(4). 


En el caso de matrices con dos dimensiones, la sintaxis es: 


DIM nombre (F,C) 


siendo F el número de filas —1 y C el número de columnas —1. 


Por ejemplo: DIM A(2,3) reservará (2+1) * (3+1) = 12 espacios de memoria, cu- 
yos elementos se pueden representar gráficamente como: 


La presencia del elemento cero, resulta a veces, para los programadores principian- 
tes, perturbador, sobre todo en las matrices bidimensionales. Resulta práctica co- 
mún hacer abstracción de todos los elementos cero y tratar la anterior matriz como 
si estuviese sólo compuesta por: 


Aunque lícito, evidentemente se desaprovecha memoria. Para resolver este proble- 
ma, se dispone de la sentencia OPTION BASE, que va seguida de un parámetro, el 
cual toma únicamente los valores cero o uno (0 y 1). 














— OPTION BASE 0. Hace que todas las matrices que se dimensionen tengan como 
primer índice el cero (0). 

— OPTION BASE 1. Los índices comenzarán en uno (1). 
Esta sentencia debe utilizarse antes del dimensionamiento, pues en caso contra- 
rio produce error. Además sólo puede utilizarse una sola vez en el mismo progra- 
ma. 


27 


Así pues puede elegirse el comienzo de los índices en la forma que mejor se adapte a 
las necesidades concretas de cada programa. Como podrá verse más adelante a veces 
resulta útil el elemento cero para almacenar en él datos relativos al resto de los ele- 
mentos, por ejemplo la suma, la media, etc. 


Hasta el momento han aparecido matrices de una y dos dimensiones, pero en térmi- 
nos generales, pueden existir matrices de N dimensiones. Por ejemplo: una matriz 
tridimensional podía ser: 


DIM A(2,3,2) 


y estaría formada por 2 filas, 3 columnas y 2 páginas (sin contar los elementos 0, a 
fin de simplificar), esta matriz podía representarse gráficamente en la forma siguien- 
te. 











Página 1 
Página 2 


Página 2 





En realidad y a la vista del gráfico, puede considerarse que una matriz de tres dimen- 
siones, está compuesta por dos matrices bidimensionales, donde el último índice 
representa la matriz a que pertenece el elemento. 


Las matrices de cuatro dimensiones son algo más complicado de imaginar, y el gra- 
do de dificultad hace que sean poco operativas. Para mayores dimensiones 5, 6, 
etc., la estructura y manejo resultan muy difíciles y por tanto poco utilizadas. 


Una representación gráfica de las cuatro dimensiones, pudiera ser la de cajas, conte- 
niendo hojas formadas por matrices bidimensionales. 


DIM AQ, 3, 3, 2) 


Algún lector imaginativo puede hacer ejercicios mentales, considerando que las de 
cinco dimensiones son archivadores, llenos de cajas, que contienen fichas de tablas 
(matrices de 2 dimensiones). Y las de 6 habitaciones que contienen archivadores, 
que... 





¿Hasta qué nivel se considera capaz de concebir? ¿Y de manejar? Esta última res- 
puesta puede contestarla después. 
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Consideraciones sobre DIM 


— En una misma sentencia DIM pueden agruparse varias matrices para su dimen 
sionamiento. 


La sintaxis general es: 





Por ejemplo: 
DIM A(4), A$(3,2), VIN (100,100) 


dimensiona simultáneamente las 3 matrices A, A$ y VIN. 


— Si el índice de una matriz no va a superar el valor 10, no es necesario su previo di- 
mensionamiento. (declaración implícita). 


— La dimensión de una matriz está dada generalmente por números, pero también' 
es válido dimensionar según el valor de una variable, o incluso, una expresión 
numérica 


Número 
Dimensión de una matriz Variable numérica 
Expresión numérica 


Por ejemplo: 


1) 10 INPUT “Número de alumnos””; N 
20 DIM AL5$(N) 


2) 10 INPUT “NUMERO DE FICHAS”;NUM 
20 DIM F$(NUM*2,4) 


Si la variable o la expresión no son números enteros, se toma como dimensión el 
entero más próximo, así: 


10N = 3.2 
20 DIM A(N*2) 


La dimensión de A será la parte entera de 3.2*2 = 6. 


— Si por alguna razón, una matriz no va a volver a utilizarse como tal y los valores 
contenidos no son de ningún interés, puede liberarse el espacio reservado en me- 
moria mediante la orden ERASE. 


La sintaxis general es: 


ERASE nombre 1, nombre2, ........ 


Donde nombre representa a las matrices a eliminar; por ejemplo: 
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10 DIM A(10), BS$(5), Z(100) Crea 3 matrices A, B$ y Z 


210 ERASE A, Z Elimina las matrices A y 
Z, liberando el espacio 
ocupado por ellas. 


Una vez eliminada una matriz, puede volver a utilizarse su nombre para crear una 
nueva; tarea que se denomina redimensionamiento y que sólo puede realizarse des- 
pués de un ERASE. 


Siguiendo con el ejemplo, sería válida una línea como la siguiente: 


480 DIM A(24) 


Ya que la matriz A fue borrada con anterioridad. 


Si se utiliza ERASE y la matriz a borrar no fue declarada implícita o explícitamente 
(DIM), se produce un mensaje de error. 


4. CARGAR UNA MATRIZ 


Genéricamente, se denomina cargar una matriz a la operación por la cual se asigna a 
cada uno de sus elementos un valor. 


Cuando se utiliza la orden DIM, automáticamente el ordenador asigna un cero a to- 
dos los elementos o una cadena vacía (*”””) en las alfanuméricas. 


Por ejemplo: 


A(0) A(1) AQ) A(3) | Elementos 


DR NA 
e 
EA RA 


DIM A(3) 


Las dobles comillas representan a una cadena vacía, es decir, una palabra formada 
por “*ningún carácter”, ni siquiera el blanco. 


La tarea de carga o asignación viene regida generalmente por bucles FOR, encarga- 
dos de la manipulación de los elementos de las matrices, aprovechándose la variable 
del FOR como variable índice de la matriz. Para más de una dimensión se utilizan 
los bucles anillados, tantos como dimensiones tenga la matriz. 
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Asignación con LET 


Dado que LET es en el BASIC la sentencia de asignación por antonomasia, nos refe- 
rimos a ella en primer lugar. 


La forma elemental será; 


LET variable indexada = valor (numérico o alfanumérico) 


Ejemplos: 
1) Valores distintos 


10 DIM A) ———__ 





20 LET A(0) = 4 
30 LET A(1) = o] 
40 LET A(Q) = 9 A 


2) Con los mismos valores para todos los elementos (inicializar) 


10 DIM AS(3) AS() | ASQ) | AS(3) 
20 FOR I=0 TO 3 


30 LET AS(I) = “PEPE” PEPE | PEPE | PEPE | PEPE 


40 NEST I 





El uso de LET es muy variado y su potencia, estriba en utilizar otras variables y no 
números en la asignación. También es útil cuando se desea inicializar una matriz con 
todos sus valores iguales, incluso poniéndolos a cero, pues debe tenerse en cuenta 
que la sentencia DIM sólo puede utilizarse una sola vez para la misma matriz; por 
tanto, si queremos restaurar en un momento dado las condiciones iniciales, necesita- 
remos un bucle como el del ejemplo 2, para la puesta a cero (o vacío) de la matriz, 
aunque también podemos borrar la matriz con ERASE y volver a dimensionar con 
DIM. 


Asignación con INPUT 


En determinadas ocasiones es necesario introducir los datos por teclado, para lo 
cual utilizamos la sentencia de entrada INPUT. 


También es posible utilizar INKEYS$ e incluso el joystick, pero su aplicación es más 
restringida. 


Veamos con un ejemplo, el uso de INPUT: 
10 DIM A(4) 
20 FOR I=0TO4 


30 INPUT A(l) 
40 NEXT 1 
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En una asignación como la indicada, cuando el número de datos a introducir es ele- 
vado, es frecuente que se produzcan errores como consecuencia de la pérdida del or- 
den en dicha entrada. Para evitarlos, es suficiente el introducir previamente al IN- 
PUT un PRINT que nos indique el número de orden del dato en curso. Como 
ejemplo, añada al aprograma anterior la línea: 


25 PRINT “DATO”;1; 


Haga nuevamente RUN y observe el efecto. El punto y coma al final de la línea 25 
permite que la interrogante del INPUT aparezca a continuación del PRINT, sin sal- 
tar línea. 


En el caso de tener que introducir cadenas alfanuméricas (textos), que contengan co- 
mas, debe utilizarse LINE INPUT, que permite introducir una línea completa de ca- 
racteres, cualesquiera que sea su contenido. 


Si las cadenas a introducir tienen un número fijo de caracteres, puede utilizarse 
INPUTS. 


Veamos un ejemplo. Si deseamos tener en una matriz los días de la semana, de for- 
ma que al 1 le corresponda el lunes, al 2 el martes, etc... podemos utilizar el siguien- 
te procedimiento: 


10 DIM DSS$(7) 

20 FOR I=1TO7 

30 READ DSS$(I) 

40 NEXT I 

50 DATA LUNES, MARTES, MIERCOLES, JUEVES, VIERNES, 
SABADO, DOMINGO 


Se observa que el bucle se establece desde 1 y no desde 0, a fin de hacer corresponder 
al lunes el índice 1, premisa del ejercicio. El elemento D$(0) existirá y contendrá el 
vacío (ningún carácter), ya que no se ha utilizado OPTION BASE y por omisión, 
como recordará, el ordenador toma el valor cero como primer índice. 


Dado que el orden de la matriz es menor que 10, no es estrictamente necesario su di- 
mensionamiento. 


Si desea visualizar los datos puede añadir 
35 PRINT DS$() 
Los bucles de lectura, como el expuesto en éste y anteriores ejemplos, resulta conve- 


niente agruparlos, de forma que desde el FOR al NEXT todo se encuentre en la mis- 
ma línea, ya que son operaciones relacionadas entre sí. 


Por ejemplo: 
20 FOR I=1 TO 7 : READ DSS$() : NEXT 
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Deliberadamente no incluimos la variable 1 del FOR, en la sentencia NEXT, pues en 
su Amstrad no es necesario, aunque a veces resulta más conveniente su uso por razo- 
nes de claridad. 


Asignación desde ficheros 


Dado que este tema será tratado con amplitud, en los siguientes capítulos, única- 
mente se indica, que las matrices también pueden cargarse con datos contenidos en 
un fichero y de hecho, esta práctica, es tanto o más común que las indicadas ante- 
riormente. 


Al final de su manual encontrará una lista de los errores emitidos por BASIC, de 
ellos solo dos corresponden exclusivamente al manejo de matrices. El apéndice 3 de 
este libro está dedicado a este tema. 


5, ERRORES EN EL MANEJO DE MATRICES 


1) Subscript out of range (error 9) 


El subíndice utilizado es demasiado grande o demasiado pequeño. El límite infe- 
rior es 0 y el superior viene dado por la sentencia DIM correspondiente y tiene co- 
mo límite la capacidad de la memoria RAM disponible. 


Ejemplo: 
10 DIM A (8) 
20 A(5) = 24 Las líneas 30 y 50 dan error, puesto que —2 y 9 
30A(9) = 6 están fuera del rango de la matriz 
40H = 2 
S0 A(H) = 4 


2) Array already dimensioned (error 10) 


La matriz que trata de dimensionarse ya lo estaba anteriormente. No se puede re- 
dimensionar una matriz, ni aún con la misma dimensión, salvo que previamente 
haya sido borrada con ERASE. 


Ejemplo: 


10 DIM A(10) 


180 DIM A(10) o 180 DIM A(24) Error por redimensionamiento 
de la matriz A 


Otros tipos de error pueden surgir, pero afectarán a las variables, sintaxis, límite de 
memoria, etc., pero no a las matrices propiamente. 
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6. OPERACIONES MAS FRECUENTES CON MATRICES 
Suma de los elementos de una lista 


En muchas ocasiones es necesario obtener la suma de todos los elementos de una lis- 
ta numérica (matriz de 1 dimensión). 


Para ello debe utilizarse —como siempre— un bucle, cuya variable sirva como 
índice de los elementos de la matriz y de una variable simple que llamaremos SU- 
MA, en la cual almacenaremos el valor de la suma de todos los elementos. 


El programa tendrá tres partes: la primera de carga, por cualquiera de los métodos 
expuestos, la segunda de suma, y la tercera, de salida por pantalla del resultado. 


10 7 CARGA DE DATOS 

20 DIM A(6) 

30 FOR K=0 TO 6 

40 READ ACK>) 

50 NEXT K 

60 7” SUMA DE DATOS 

70 FOR K=0 TO 6 

80 SUMA=SUMA+A(K) 

90 NEXT K 

100 “" SALIDA DE RESULTADOS 
110 PRINT ”LA SUMA DE LOS NUMEROS” 
120 FOR K=0 TO 6 

130 PRINT ACK);”+”; 

140 NEXT K 

150 PRINT ”=”; SUMA 

200 DATA 4,3,6,12,45,8,2 


Es interesante volver a insistir en la posibilidad de almacenar la suma en el elemento 
cero de la matriz, eliminando la variable simple SUMA. 


Observe que como son 7 los datos, el nuevo dimensionamiento será precisamente 
DIM A(7), ya que el elemento A(0) queda reservado para la suma. Los límites de los 
bucles no serán 0 y 6, sino 1 y 7, respectivamente. 


Veamos cómo quedaría el programa tras introducir las modificaciones apropiadas. 


10 7” CARGA DE DATOS 
20 DIM A(7> 

30 FOR K=1 TO 7 

40 READ ACK> 
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50 NEXT K 

60 “ SUMA DE DATOS 

70 FOR K=1 TO 7 

80 ACO>)=ACOI)+ACK)> 

90 NEXT K 

100 7 SALIDA DE RESULTADOS 
110 PRINT ”LA SUMA DE LOS NUMEROS” 
120 FOR K=1 TO 7 

130 PRINT A(K)>;”+”; 

140 NEXT K 

150 PRINT ”=”;AC0) 

200 DATA 4,3,6,12,45,8,2 


Aunque la carga se ha realizado mediante READ y DATA puede utilizarse cualquier 
sistema de los indicados anteriormente. 


Suma de los elementos de una tabla 


Con las tablas (matrices de dos dimensiones) se presentan tres casos distintos: 


* Suma de elementos por filas 
* Suma de elementos por columnas 
* Suma de todos los elementos 


Veamos con un ejemplo los tres casos. Sea la tabla 


1 FILAS 





El programa cargador, común a los tres cálculos, podía ser (supuestos los datos de 
la tabla contenidos en líneas DATA): 


10 7 CARGAR LA MATRIZ 
20 OPTION BASE 1 
30 DIM A(3,4) 
40 FOR F=1 TO 3 
50 FOR C=1 TO 4 
60 READ A(F, C) 
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70 PRINT A(F,C), 


80 NEXT C 

90 PRINT 

100 NEXT F 

110 DATA 2,6,5,1,4,-3 
129 DATA 2,0,3,5,1,-1 


* Suma de todos los elementos 


La suma de todos los elementos no reviste ningún problema, se establecen dos 
bucles iguales a los de lectura y en la variable simple TOTAL se van acumulando 
uno a uno el valor de todos los elementos. 


130 “ SUMA DE TODOS LOS ELEMENTOS 
140 FOR F=1 TO 2 

150 FOR C=1 TO 4 

160 TOTAL=TOTAL+A(F,C) 

170 NEXT C,F 


Observe que la expresión: TOTAL = TOTAL + A(F,C) no debe interpretarse en 
sentido algebraico, puesto que ello equivaldría a decir que A(F,C)=0, ya que si des- 
pejamos en la expresión, tenemos TOTAL — TOTAL = A(F,C). Por tanto, el sen- 
tido es que el nuevo valor de la variable TOTAL ha de ser igual al valor antiguo más 
el valor del enemigo A(F,C). 


* Suma de filas 


Dado que el número de filas es tres, necesitariamos tres variables simples para alma- 
cenar la suma de los elementos de cada una de ellas y como consecuencia, tres 
bucles, uno por fila. 


Pero observando las líneas 200 a 240, estructura de dos bucles, y considerando que 
el primero controla las filas, se deduce que sería más útil considerar una matriz uni- 
dimensional de tres elementos, cuyo índice viene controlado precisamente por el 
bucle de las filas. 


Si llamamos SF (suma de filas) a la matriz, el programa sería: 


180 7 SUMA POR FILAS 
190 FOR F=1 TO 3 

200 FOR C=1 TO 4 

210 SF(F>=SF(F>)+ACF, CC) 
220 NEXT C,F 
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La matriz SF no se dimensiona previamente, puesto que sus elementos no superan el 
límite de 10. 


* Suma de columnas 


La tercera parte del cálculo, suma de columnas, es igual a la anterior. También utili- 
zamos una matriz sin previo dimensionamiento para almacenar las sumas de las 
cuatro columnas. 


La diferencia con la anterior estriba en que los bucles están cambiados; primero el 
de columnas y luego el de filas. 


230 “SUMA POR COLUMNAS 
240 FOR C=1 TO 4 

250 FOR F=1 TO 3 

260 SC(C)=SC(CI+ACF, C) 
270 NEXT F,C 


Por último, procedemos a sacar por pantalla todos los datos en forma de tabla, tal 
como se planteó al principio. 


280 ” SALIDA DE RESULTADOS EN FORMA DE TABLA 
290 FOR F=1 TO 3 

300 FOR C=1 TO 4 

310 PRINT ACF,C); 

320 NEXT C 

330 PRINT ”xXx”;SF(F) 

340 NEXT F 

350 PRINT "MadRSdOdaOdaoiodiodiokkk” 
360 FOR C=1 TO 4 

370 PRINT SC(C>); 

380 NEXT C 

390 PRINT ”xX”; TOTAL 


El programa ya está completo, haga RUN para comprobar y obtendrá una tabla con 
las sumas de las filas, de las columnas y la suma total, tal como se indica a conti- 
nuación. 
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Búsqueda del mayor o menor de una lista 
* Números 


Antes de entrar en el campo de la ordenación, como introducción, veamos cómo en- 
contrar el mayor o el menor elemento de una lista o tabla. 


Utilizando los datos del ejemplo M1 y las líneas 10 a 50 y la 200, que componen la 
carga de una lista en la matriz A, añadimos las siguientes líneas para la búsqueda del 
mayor. 


10 7 CARGA DE DATOS 

20 DIM AC6) 

30 FOR K=0 TO 6 

40 READ A(K) 

50 NEXT K 

200 DATA 4,3,6,12,45,8,2 

300 “ BUSQUEDA DEL MAYOR 

310 FOR K=0 TO 6 

320 IF ACK)>MAYOR THEN MAYOR=A(K> 
330 NEXT K 

340 PRINT ”EL MAYOR DE LOS NUMEROS” 
350 FOR K=0 TO 6 

360 PRINT A(K); 

370 NEXT K 

380 PRINT ”ES EL”; MAYOR 


La línea 310 es la encargada de ver quién es el mayor en cada vuelta del bucle, que 
maneja los siete elementos de la lista. 


La variable MAYOR contiene el número mayor encontrado hasta una determinada 
vuelta del bucle. 


Cuando K = 0 el valor de MAYOR = 0, por tanto en la primera vuelta MAYOR = 
A(O0), si el siguiente valor es mayor se producirá un cambio, en caso contrario, conti- 
núa el mismo valor como mayor. 


Veamos los valores que en el ejemplo toman las variables que intervienen. 
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Vuelta K A(K) MAYOR 
1 0 4 4 
2 1 3 4 
3 2 6 6 
4 3 12 12 
5 4 45 45 
6 5 8 45 
7 6 2 45 


La búsqueda del menor es análoga, basta con cambiar el símbolo > de la línea 320 
por el de <, y el nombre de la variable MAYOR por otro más apropiado. 


Si los números con los que se va a trabajar son menores que cero (alguno), bastará 
con iniciar la var MENOR de forma implícita, pero si todos son positivos, el valor 
inicial explícito de MENOR será mayor que el más pequeño, como práctica puede 
darse a MENOR = 9999999 o número análogo. 


Por ejemplo 


10 “ CARGA DE DATOS 
20 DIM A(6) | 
30 FOR K=0 TO 6: READ A(K)>: NEXT K 
40 DATA 4,6,2,7,23,12,5 
50 ' BUSQUEDA DEL MENOR 
60 MENOR=9999 
70 FOR K=0 TO 6 
80 IF A(K)<MENOR THEN MENOR=A(K)> 
90 NEXT K 
100 PRINT ”EL MENOR ES”; MENOR 


* Cadenas (palabras) 


El concepto de mayor y menor, aplicado a caracteres, es distinto del numérico. 


Los caracteres están ordenados de menor a mayor en la forma alfabética, es decir A, 
B, C...., Z. dicha ordenación no es arbitraria, sino que corresponde a un código es- 
tándar, que en el caso del Amstrad (y de la mayoría de los ordenadores), es el código 
ASCII. 


En el apéndice se incluye una tabla completa de dicho código. Como se puede 
comprobar, a las letras mayúsculas del alfabeto les corresponde un valor que en nú- 
meros decimales comienza con el 65 para la A y finaliza con el 90 para la Z. (Ver To- 
mo l, pág. 116 del manual). 
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Carácter ABCDe.. Y Z 


ASCII - 
Valor decimal 65 66 67 68. ..... 89 90 


Ahora bien, observará que las letras minúsculas tienen valores distintos, y es que en 
realidad, son distintos caracteres para el ordenador. Veamos dichos valores: 


Carácter ab ad ita y Z 


ASCII ; 
Valor decimal 97 98 99 100 ..... 121 122 


Una letra (o carácter) es mayor que otra, si su valor ASCII lo es. 
C > A ya que 67 > 65 


Ahora bien, ¿qué ocurre si comparamos A mayúscula y a minúscula? 


Dado que a vale 97 y A vale 65, resulta que: 


a>A 


La conclusión inmediata es que si establecemos comparaciones, debemos hacerlo 
con letras de un mismo tipo, mayúsculas o minúsculas, pero no con ambas. 


Practique con el siguiente programa y vea los resultados. 


10 INPUT ”Introduzca una letra ";¡L1S$ 

20 INPUT "Introduzca otra letra”;L25$ 

30 IF L1$>L2$ THEN PRINT L1$;” es mayor que ”;L2$:GOTO 50 
40 PRINT L2$;” es mayor que ”;L1$ 

50 PRINT **——->—== == — ds 

60 GOTO 10 


¿Qué ocurre con las cadenas? Veámoslo de forma práctica. Utilice el programa an- 
terior modificando (si lo desea) el texto de los INPUT, sustituyendo LETRA por 
PALABRA y observe los resultados obtenidos introduciendo palabras en mayúscu- 
las, en minúsculas o mixtas. 


En la tabla siguiente incluimos algunos ejemplos que nos permitirán sacar conse- 
cuencias para nuestros propósitos. 


PALABRA (A) PALABRA (B) RESULTADO 
1 TOLEDO Toledo A<B 
2 ZAPATO abanico A<B 
3 PERA PERO A<B 
4 124 125 A <B 
5 cara caRa A>B 
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1. TOLEDO es menor que Toledo, puesto que las letras minúsculas tienen un valor 
ASCII mayor. 


2. ZAPATO es menor que abanico por igual motivo, a pesar de que zapato comien- 
za con la última letra del abecedario y abanico con la primera. 


3. Puesto que las tres primeras letras son iguales, la decisión de ser PERO < PE- 
RA, es debido únicamente a la letra O frente a la A. 


4. Los números tratados como caracteres también responden al concepto matemáti- 
co de mayor o menor. 


5. cara es mayor que caRa puesto que r es mayor que R, en términos ASCII. 


Hagamos ahora un programa que nos permite hallar la cadena menor de una lista o, 
lo que es lo mismo, la cadena que alfabéticamente es la primera. 


10 MENOR DE UNA LISTA ALFANUMERICA 


20 * Primero alfabeticamente 
30 DIM A(9)>);: 7” 10 Elementos 
AO A GARGA: iuinmiiss 


20 FOR K=0 TO 9 

60 READ AS$(K) 

70 NEXT K 

O cai ade BUSQUEDA ....... 

90 MENORS=”Z” 

100 FOR K=0 TO 9 

110 IF AS(K><MENORS THEN MENORS$=AS(K) 
120 NEXT K 

130 CLS: PRINT "LA MENOR DE LAS PALABRAS” 
140 FOR K=0 TO Q:PRINT AS(K)>: NEXT K 

150 PRINT ”ES: —”;CHR$(24); MENORS; CHR$ (24) 
160 * ...LINEAS DE DATOS 

170 DATA PERA, COCHE, RIO, ZAPATO, RELOJ 

180 DATA ARBOL, CEPA, MESA, FLOR, LAPIZ 


La variable auxiliar MENORES, ha de inicializarse con un valor alto (letras altas) con 
el fin de asegurar un buen funcionamiento del programa, puesto que en caso contra- 
rio, la variable contendría —por omisión— la cadena vacía, que es evidentemente 
un valor más bajo que cualquier palabra. 


Por lo demás, el programa es similar al utilizado anteriormente para los números. 


En el caso de utilizar fechas, tomadas como cadenas, estos sistemas no 
funcionarían, para este caso concreto vea el apartado correspondiente en el capítulo 
3. Ordenación. 


Corregir datos de una matriz 


Cuando el número de datos es elevado, la probabilidad de cometer errores en la 
entrada por teclado es alta. 


Para prevenir estos errores, necesitamos dos herramientas: la primera, una entrada 
de datos clara, sobre todo en el caso de tablas, de forma que en pantalla se señale 
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perfectamente la fila y columna en curso. La segunda, un programa depurador que 
permita corregir los datos erróneos antes de pasar a la fase de procesado de los mis- 
mos. 


Veamos con un ejemplo cada una de las partes: 


Sea una tabla numérica de 5 x 7 datos, donde las filas representan “conceptos de 
gasto”” y las columnas ““los días de la semana”. 


La mejor forma de identificación es, evidentemente, llamar a las cosas por su 
nombre, de forma que utilizaremos dos matrices auxiliares (alfanuméricas), para al- 
macenar los nombres de los “conceptos”? y de los “días”? de la semana. Por ser 
constantes podemos utilizar líneas DATA. 


Las matrices serán: 


Conceptos C$ (5) 
Días DS (7) 


Datos D (5,7) 





10 7 RUTINA PARA CORRECCION DE DATOS 

20 DIM C$(5)>,D5(7>,D(5,7) 

30 " CARGAR CONCEPTOS 

40 FOR K=1 TO 5: READ CS(K): NEXT 

50 7 CARGAR DIAS 

60 FOR K=1 TO 7:READ DS(K): NEXT 

70 DATA Alimentacion, Vestido, Transporte, Casa, Varios 

80 DATA Lunes, Martes, Miercoles, Jueves, Viernes, Sabado, Domingo 
100 7" ENTRADA DE DATOS 

110 7” Borrar pantalla 

120 FOR F-1 TO 5 

130 PRINT "Gastos ”;CS(F>;” correspondientes al ” 

140 FOR c=1 TO 7 

150 PRINT DS(C); 

160 INPUT D(F,C>) 

170 NEXT C 

180 PRINT *-- -------=-- - Looo-o-- 
190 NEXT EF 





Nota: A fin de no infrautilizar la memoria debéria añadirse la mea 15 OPTION BASE 1 


Como puede ver tras hacer RUN, la entrada de datos resulta clara, se indica en pan- 
talla el tipo de gastos y después el día de la semana. De esta forma, conseguimos una 
introducción ordenada de los datos, no obstante, a pesar de la claridad, el introducir 
números induce a errores de teclado, así que vamos a añadir la herramienta de depu- 
ración necesaria. 
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200 7 DEPURACION DE DATOS 

205 7 Borrar pantalla 

210 PRINT "DATOS ACTUALES” 

220 PRINT *==============” 

230 FOR F=1 TO 5 

240 FOR C=1 TO 7 

250 PRINT D(F,C>; 

260 NEXT C 

270 PRINT 

280 NEXT F 

290 INPUT "ALGUN DATO ERRONEO (S/N) ”;Z$ 
300 Z$5=UPPER$ (Z5$) 

310 IF Z$=”N” THEN 500 

320 IF Z$=”S” THEN 340 

330 GOTO 290 

340 INPUT *”CUANTOS ERRORES ”;E 
350 FOR K=1 TO E 

360 INPUT ” INTRODUZCA LA FILA Y LA COLUMNA ”;F,C 
370 PRINT *”VALOR ERRONEO=”;D(F,C), 
380 INPUT ”NUEVO VALOR ”;D(CF, C> 
390 NEXT K 

400 GOTO 200 

500 7 PROCESADO DE LOS DATOS 


Las líneas 210 a 280 se encargan de mostrar los datos en forma de tabla, tal y como 
se introdujeron por el teclado. Si la variable Z$ contiene una **s”” por respuesta afir- 
mativa al INPUT, el programa pregunta (340) cuántos errores se han detectado. El 
bucle que se inicia en 350 pide que se introduzca la fila y la columna del elemen'y 
erróneo, muestra después su valor y pide el nuevo. 


La línea 400 devuelve el control al principio de la depuración, con el fin de que se 
muestre la nueva tabla con las correcciones efectuadas, permitiendo volver a corre- 
gir o, en caso de estar bien, con contestar N al INPUT de la línea 290, se abandona- 
rá la rutina de depuración para continuar el programa (línea 500 en adelante). 


Evidentemente, el ejemplo expuesto es simplemente una idea básica susceptible de 
muchas mejoras. La entrada de datos y la depuración o filtro de los mismos, es una 
técnica que algunos programadores han convertido en ““arte””. 


La rutina anterior es, como hemos dicho, básica, pero suficiente en la mayoría de 
los casos, aunque el lector puede y debe modificarla a su manera. Piense que cada 
programador tiene un “sello”? personal de hacer las cosas, incluso un cierto estándar 
de representación en pantalla. 
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Anular un elemento de una matriz 


Una tabla o una lista está compuesta de elementos generalmente dinámicos, es decir, 
sujetos a continuas variaciones del contenido de los mismos. 


Anular uno de los elementos es una tarea frecuente. Imaginemos la lista como la si- 


guiente: 
CPES E EE E 


compuesta de 6 elementos, en la que deseamos eliminar el cuarto elemento de valor 
8, es decir, que la nueva lista tendrá 5 elementos en vez de 6. 


La rutina de eliminación podía ser algo así como la que exponemos a continuación: 


10 “* RUTINA DE ELIMINACION 

20 7” Carga de la lista 

30 OPTION BASE 1:N=6: “No. de elementos 
40 DIM A(N) 

50 FOR K=1 TO N:READ ACK): NEXT 

60 DATA 1,6,7,8,5,9 

70 7 Eliminacion de un elemento 

80 INPUT "Que elemento quiere eliminar ”;EL 
90 FOR K=EL TO N-1 

100 A(K>=A(K+1) 

110 NEXT K 

120 A(N>=0 

130 “Imprimir nueva tabla 

140 FOR K=1 TO N:PRINT ACK)>: NEXT K 


Una vez conocida la posición del elemento a eliminar, por el INPUT de la línea 80. 


Establecemos un bucle cuyos límites son: la posición a eliminar y el número de ele- 
mentos de la lista menos uno. En realidad, lo que hacemos es un intercambio, asig- 
nando al elemento A(K) el valor del siguiente: A(K + 1). 


En el ejemplo propuesto, al llegar a la línea 110 la lista en memoria será: 


EAFAEMEAFEAES 


El elemento cuarto que era un 8, ha pasado a ser el siguiente (el 5), y lo mismo 
ocurre hasta el penúltimo (el N-1). Más ¿qué ocurre con el último? Este no ha va- 
riado, así que el 9 ocupa la 5? posición por el intercambio, y la 6* por origen. Si no 
se desea que se repita, sino simplemente que la lista se acorte, hacemos el último ele- 
mento igual a cero, como puede verse en el listado, en la línea 120. 
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La línea 140 nos muestra la nueva tabla. 


Como habrá podido adivinar, esta operación de anulación es una de las opciones 
que debe ofrecer un programa de base de datos, como veremos en los apartados 
correspondientes. 


Queda todavía por ver algo que quizá el lector ya haya echado en falta. Todo lo ex- 
puesto está bien, pero ¿qué ocurre si no conocemos la posición del elemento a elimi- 
nar, sino su valor? Esto se da mucho en el caso de textos, donde se conoce la palabra 
a eliminar, pero no su posición y sobre todo, cuando las listas son largas y en las 
tablas, más difícil de detectar la posición, puesto que ésta viene dada por dos coor- 
denadas: fila y columna. 


Este caso presenta dos problemas, la búsqueda del elemento a eliminar y la elimina- 
ción. La última parte es idéntica al caso anterior, teniendo en cuenta que la elimina- 
ción del último —que antes era poner a cero— ahora será poner en cadena vacía. 


Veamos cómo quedaría el ejemplo anterior aplicado a este caso. 


10 7 RUTINA DE ELIMINACION (textos) 

20 7 Carga de la lista 

30 OPTION BASE 1:N=6: “No. de elementos 

40 DIM AS(N)> 

50 FOR K=1 TO N: READ AS$(CK): NEXT 

60 DATA platano, pera, manzana, uva, melon, naranja 
70 7 Eliminacion de un elemento 

80 INPUT "Nombre del elemento a eliminar ”;ELS$ 
90 FOR K=EL TO N 

100 IF ASC(K>=ELS$ THEN EL=K: GOTO 120 

110 NEXT K 

120 FOR K=EL TO N-1 

130 AS(K>=AS(K+1> 

140 NEXT K 

150 AS(N>=”>” 

160 “Imprimir nueva tabla 

170 FOR K=1 TO N:PRINT AS$(K>: NEXT K 


Hay que tener muy en cuenta que el nombre a eliminar debe ser introducido con la 
misma sintaxis que figura en las DATA, habida cuenta de lo explicado anteriormen- 
te sobre mayúsculas y minúsculas. 


El bucle 90-110 es el encargado de encontrar el nombre en el momento que se verifi- 
ca la igualdad de la línea 100, el valor de K indicará precisamente la posición en la 
lista, por lo que la variable EL recoge dicho valor. 


Las líneas 120 a 140 constituyen el bucle de actualización que se inicia en el valor EL 
(posición de la palabra a borrar) y finaliza en N=1, al igual que en el programa an- 
terior. 
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Por último, la línea 150 hace que el último elemento no se repita y desaparezca, 
acortando la lista en un elemento (el que fue suprimido). 


Añadir elementos a una matriz 


Este caso es justo el contrario del anterior. En principio, trataremos de introducir 
un nuevo elemento en una lista, bajo el supuesto de que la matriz es lo suficiente- 
mente grande para ello. 


La inserción cabe hacerla al final de la lista o en una posición intermedia cualquiera. 


El hacer una inserción en cola no supone ningún problema; basta saber el número de 
elementos cargados que tiene y hacer el siguiente igual al valor a añadir. 


Si la posición es intermedia habrá que hacer un hueco y correr —desde ese lugar— 
un puesto a la derecha al resto de los elementos. 


Veamos esto gráficamente con un ejemplo y elaboremos una rutina que haga estas 
funciones. Sea la lista: 


N =5 


l 
AREA ENE E 


que dispone de 8 elementos, de los cuales los 5 primeros contienen valores y los 3 úl- 
timos vacíos (serían O por la orden DIM). 


Ahora deseamos intercalar un **1”” en tercer lugar; es decir, entre el 5 y el 8 de la lis- 
ta. 


10 * INSERCION EN UNA LISTA 

20 7 Carga de datos originales 

30 OPTION BASE 1:N-5:DiM A(N+3) 

40 FOR K=1 TO N:READ A(CK): NEXT 

50 DATA 2,5,8,7,6 

60 " Insercion 

70 INPUT *”POSICION DE INSERCION ”;] 
80 INPUT ”VALOR ”;V 

90 FOR K=N+1 TO I STEP -1 

100 A(K>=A(K-1) 

110 NEXT K 

120 ACI>=V 

130 “Salida de la nueva lista 

140 FOR K=1 TO N+1:PRINT ACK): NEXT 
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Como puede ver, el bucle de inserción se ha planteado a la inversa que en los 
ejemplos anteriores. Desde un valor mayor en una unidad, al número de elementos 
cargados, hasta la posición I de inserción, puesto que N+1 > I, el valo del paso se- 
rá—1. 


Cuando finalice el bucle, la lista tendrá la siguiente forma: 


co — a —aN+1 


CAPAS E A A 
I=3 N=5 


Por último, sólo falta introducir en la posición 1 el nuevo valor, que en el ejemplo 
hemos puesto 1. De ello se encarga la línea 120. 


La tabla quedará definitivamente en la forma: 


EMO EA E EA 1 E 


Como podrá comprobar al hacer RUN en el programa anterior. 


La inserción del ejemplo ha supuesto una rotación de elementos a la derecha de la 
lista. Por supuesto, puede realizarse a la izquierda, basta con modificar los límites 
del bucle, comenzando en la posición anterior a la primera; es decir, en la cero y fi- 
nalizando en I—1, y haciendo que A(K) = A(K + 1). 


Para listar todos los elementos, el bucle de la 140 tendrá como límite cero en vez de 
uno y OPTION BASE debe cambiarse para el valor 0 (línea 30). 


10 7 INSERCION EN UNA LISTA (Por la izquierda) 
20 7 Carga de datos originales 

30 OPTION BASE 1:N=5: DIM A(N+3)> 

40 FOR K=1 TO N: READ ACK): NEXT 

50 DATA 2,5,8,7,6 

60 7” Insercion 

70 INPUT *”POSICION DE INSERCION ”; I 
80: INPUT *”VALOR ”;V 

90 FOR K=0 TO 1-1 

100 AC(K>=A(K+1) 

110 NEXT K 

120 ACI>=V 

130 “Salida de la nueva lista 

140 FOR K=0 TO N+1:PRINT ACK): NEXT 


Otro problema que abordaremos más adelante, será la inserción de cadenas, en una 
lista ordenada alfabéticamente, de forma que la nueva cadena respete la ordena- 
ción. En el capítulo siguiente trataremos todo lo relativo a la ordenación. 
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Búsqueda de elementos alfanuméricos en listas y tablas 


En el apartado tercero de este capítulo vimos cómo encontrar el mayor o menor de 
una lista, tanto numérica como alfanumérica. Ahora bien, la búsqueda de textos de- 
be enfocarse en un contexto más amplio que el numérico. En este sentido y como 
complemento, estudiaremos a continuación la búsqueda de un elemento por igual- 
dad o por contenido. 


Búsqueda por igualdad 


En una lista de nombres, por ejemplo, es frecuente tratar de buscar uno determina- 
do y una vez localizado, listarlo junto con atributos inherentes al propio nombre. 
Veamos un ejemplo. 


Imaginemos una breve agenda telefónica cuyo contenido sea: nombre, apellidos y 
teléfonos. En principio, cabría la posibilidad de utilizar 3 matrices de una dimen- 
sión, tales como: 


N$ Para nombres 
A$ Para apellidos 
TS para teléfonos 


La N$ sería la matriz principal sobre la que vamos a efectuar la búsqueda de 
nombres y A$ y T$ serían las matrices de atributos. A un determinado nombre, ele- 
mento N$(i), le corresponderían los atributos A$(i) y T$(i) para los apellidos y telé- 
fono, respectivamente. 


Si mantenemos esta estructura matricial, la rutina de búsqueda podría ser: 


1000 7" RUTINA DE BUSQUEDA POR IGUALDAD 
1010 INPUT "NOMBRE A BUSCAR ” ; NOMS 
1020 FOR K=1 TO N 

1030 IF N$(K>=NOMS$ THEN 1100 

1040 NEXT K 

1050 PRINT ”NO EXISTE ”; NOMS 

1060 GOTO 1130 

1100 PRINT N$(K> 

1110 PRINT AS$SCK> 

1120 PRINT TS$<K> 

1130 RETURN 


Para poder utilizarla debe elaborar una rutina de entrada de datos como tal descri- 
tas en apartados anteriores. 


Mediante la línea 1010 introducimos el nombre que buscamos, teniendo en cuenta 
que dicho nombre debe introducirse tal y como figura en la lista, es decir, respetan- 
do el tipo de letra mayúsculas y minúsculas, tal como se comentó con anterioridad. 
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La línea 1020 establece un bucle extendido a todos los elementos de la lista (N ele- 
mentos). 


En 1030 se efectúa la comparación con el símbolo de igualdad —título de este 
epígrafe. Debe tenerse en cuenta que la igualdad ha de ser absoluta, carácter a carác- 
ter. Si dicha igualdad se verifica es que se ha encontrado el elemento buscado, y por 
tanto, pasamos « la línea 1100 y siguientes, que imprimen el nombre, los apellidos y 
el teléfono, aprovechando el índice K del bucle, común a nombre y atributos. 


Si se agotase el bucle, sería una señal inequívoca de que ha recorrido toda la lista sin 
encontrar el nombre buscado; por ello, la 1050 nos avisa de este hecho y produce un 
retorno al programa principal. 


Otra forma de enfocar el problema, más correcta, es utilizar una sola matriz de tres 
dimensiones. Si llamamos N$ a esta matriz, los elementos de la fila ¡ésima 
representarían a: 


N$(i,1) Nombre 
NS$(1,2) Apellidos 
N$(1,3) Teléfono 


Suponiendo que —por mayor claridad— no utilizamos los elementos cero de la 
tabla, como hemos hecho en muchos ejemplos anteriores e incluso en la rutina ex- 
puesta. 


La confección de una rutina como la anterior, para este tipo de estructura matricial, 
no presenta ningún problema. Basémonos en la anterior. 


1000 ” RUTINA DE BUSQUEDA POR IGUALDAD 
1010 INPUT ”NOMBRE A BUSCAR ”; NOMS 
1020 FOR K=1 TO N 

1030 IF N$(K,1>)=NOMS THEN 1100 
1040 NEXT K 

1050 PRINT ”NO EXISTE ”; NOMS 

1060 GOTO 1130 

1100 PRINT NS$(K, 1> 

1110 PRINT N$(K,2)> 

1120 PRINT N$(K,3> 

1130 RETURN 


El sistema expuesto a través de los elementos de búsqueda por igualdad, presenta 
varios problemas, entre ellos dos muy importantes. Por un lado, la entrada de datos 
para cargar las matrices ha de ser meticulosa, no vale introducir por ejemplo: PEPE 
y luego Antonio, “ray que tomar un criterio fijo y, además, hay que tener cuidado 
con los espacios; a fin de cuentas, también son caracteres. Las funciones UPPERS$ y 
LOWERS nos serán útiles a estos efectos. 
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Si no conocemos con seguridad el tipo de letra con que se almacenaron los datos, 
puede procederse —antes de la comparación—, a homogeneizar el tipo de caracte- 
res, tanto de la cadena buscada como de los elementos de la tabla, por ejemplo en el 
ejemplo anterior sería mejor cambiar la línea 1030 por 


1030 IF UPPER$ (N$(K,1)) = UPPER$ (NOMS) 


De esta forma las cadenas N$(K,1) y NOMS se han convertido a mayúsculas, con in- 
dependencia del tipo con que se escribieron anteriormente, sin embargo, las cadenas 
no han sido alteradas y seguirán estando formadas por los mismos tipos de caracte- 
res, es decir, solo la comparación se realiza en mayúsculas. De igual forma podía 
utilizarse la función LOWERS$, que pasa una cadena a minúsculas. 


Por otro lado, lo más lógico en el ejemplo expuesto es introducir el nombre seguido 
de los apellidos, o apellidos seguidos del nombre, según los gustos o el destino del 
programa general. En este caso, para buscar un elemento, debemos recordar su 
nombre y dos apellidos escritos correctamente, cosa ya algo difícil, sobre todo si se 
trata de una agenda de regulares dimensiones. 


Algunos de estos inconvenientes pueden solucionarse utilizando la técnica de bús- 
queda por inclusión, que exponemos a continuación. 

Búsqueda por inclusión 

El Mallard BASIC del Amstrad dispone de una función de búsqueda dentro de ca- 
denas que nos facilitará el trabajo, aunque puede realizarse sin ella. 


Esta función es INSTR que lleva 3 parámetros; el primero de ellos opcional. 


INSTR (partida, cadena en la que busca, cadena buscada) 


El primer parámetro indica la posición a partir de la cual se va a efectuar la bús- 
queda. Si no se le indica, toma 1 por defecto. 


El segundo, la cadena en la cual va a buscar. 
El tercero, la subcadena buscada. 


Si la subcadena buscada existe, devuelve la posición del carácter a partir del cual se 
ha encontrado la coincidencia. Si no existe, devuelve un cero (0). 


Veamos un ejemplo. Sea la cadena B$= “Las noches de invierno son frías””, en la 
cual se busca la subcadena A$= “invierno”. 


INSTR (1,BS$,A$) ó INSTR (BS,AS$) 


TH 
a 


Nos devolverá el valor 15, que es la posición ocupada por la 


La aplicación en una búsqueda se realizará con un IF, comprobando que INSTR da 
un valor distinto de cero, lo cual indica que la subcadena está contenida. 
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Pruebe el ejemplo expuesto, tecleando las siguientes instrucciones sin número de 
línea: 


> 


B$ = “Las noches de invierno son frías 
A$= “invierno” 
PRINT INSTR (B$,AS$) 


Cambie ahora A$ por otro texto y compruebe los resultados. Le sugerimos los si- 
guientes valores o contenidos de A$: “*L”, “*de””, “no”, *“frías””. Como verá, loca- 
liza cualquier subcadena, sea o no palabra propiamente dicha. 


Aún cuando lo normal será utilizar variables alfanuméricas con la instrucción INS- 
TR, puede perfectamente utilizarse cadenas entrecomilladas, pruebe por ejemplo 
PRINT INSTR (“*COCODRILO”, ““L””) y obtendrá el valor 8. 


Basándose en las facilidades que aporta el uso de esta función, puede elaborarse un 
ejemplo más completo y elástico en su utilización. 


La matriz base de datos se establece en la siguiente forma 


1) Nombre y apellidos NS(i, 1) 
2) Dirección NS(, 2) 
3) Población NS(i, 3) 
4) Provincia NS(i, 4) 
5) Teléfono NS(i, 5) 


lo que implica dimensionar una matriz de dos dimensiones, la primera el total de 
nombres de la agenda y la segunda será cinco (5), correspondiente a los epígrafes an- 
teriores. 


DIM N$(N, 5) con OPTION BASE 1 


El ejemplo consta de 3 partes 
— Programa principal (10-100) 


Inicializa la variable puntero que irá apuntando sucesivamente a cada uno de los 
nombres, a fin de llevar un control sobre los que se va realizando la búsqueda. Pide 
el nombre a buscar, que puede ser un nombre completo, un apellido, una inicial, 
etc. 


Se ha previsto el caso en que pueden existir dos o más nombres que correspondan al 
buscado, a fin de que se muestren uno a uno los que van apareciendo y continue la 
búsqueda hasta agotar los datos (puntero > = N). 


— Carga de datos en la matriz (110-240) 


Los datos se han incluido en líneas DATA, una para cada nombre con sus atributos 
separados por comas. Por brevedad solo se incluyen tres, pero puede Vd. aumen- 
tarlos variando consecutivamente el valor de N en la línea 150. 
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La 170 dimensiona convenientemente la matriz en función de N y los bucles 180 y 
190 controlan la lectura de datos. 


La línea 240 produce el retorno al programa principal 
— Rutina de búsqueda por inclusión (250-360) 


La instrucción INSTR de la línea 270 incluida dentro de un bucle permite buscar la 
cadena NOMS dentro de las cadenas de la matriz de nombres N$(K, 1). 


La línea 290 controla el hecho de que el bucle se agote y como consecuencia no hay 
más datos. 


Las líneas 310-350 es una pequeña rutina que imprime el nombre que corresponde al 
buscado, junto con sus atributos. 


10 ” PROGRAMA PRINCIPAL 

20 PUNTERO=1 

30 GOSUB 110: ” Carga de datos en la matriz 

40 INPUT ”Nombre a buscar ”; NOMS 

50 GOSUB 250: “ Rutina de busqueda 

60 INPUT "desea continuar la busqueda (S/N)> ”;Z$ 

70 zS$=UPPERS(Z5$> 

80 IF Z$="S” AND K<N THEN PUNTERO=K+1:GOSUB 250: GOTO 60 
90 IF Z$="S” AND K>=N THEN PRINT”NO hay mas nombres” 
100 END 

110 “ CARGA DE DATOS EN LA MATRIZ 

120 DATA PEPE GOTERA,OCA 24,MADRID, MADRID, 6445566 

130 DATA BENITO CARA DURA, RAMBLA 12,ALTILLO, GRANADA, 2222222 
140 DATA CARPANTA COMILQON, PUENTE BAJO SN, ALPEDRETE, MADRID, O 
150 N=3: “Numero de datos 

160 OPTION BASE 1 

170 DIM N$(N,5)> 

180 FOR K=PUNTERO TO N 

190 FOR I=1 TO 5 

200 READ NS$(K, 1> 

210 NEXT 1 

220 NEXT K 

230 PRINT”Datos cargados” 

240 RETURN 

250 “ RUTINA DE BUSQUEDA POR INCLUSION 

260 FOR K=PUNTERO TO N 

270 1F INSTR (N$(K,1>,NOMS$S><>0 THEN 310 

280 NEXT K 

290 PRINT”FIN DE LA LISTA DE NOMBRES” 

300 GOTO 100 

310 PRI ETS OOO OOOO OOOO OOOO OOOO OOOO OI 
320 FOR I=1 TO 5 

330 PRINT NS(K, 1> 

340 NEXT 1 

350 PRI ETORRI RRA RARA AAA” 
360 RETURN 


Aunque de esta forma puede construirse una agenda, en'los capítulos dedicados a 
los ficheros se incluyen éjemplo completos de agendas mucho más eficaces. 


En el capítulo 5, puede ver un programa (BIBLIO) que permite llevar una bibliote- 
ca, en el cual se utiliza la técnica de búsqueda por inclusión. 
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Búsqueda en listas ordenadas 


En los dos apartados anteriores nos hemos referido, aunque de forma implícita, a 
listas no ordenadas, donde la localización de un elemento ha de realizarse, ““miran- 
do” desde el primero al último, pues no existe ningún otro criterio de búsqueda. 


Ahora bien, si una lista está ordenada alfabéticamente y el elemento buscado co- 
mienza por z, evidentemente se encontrará por el final. Luego en listas ordenadas, 
podemos establecer alguna regla o algoritmo de búsqueda, conducente a conseguir 
una mayor velocidad en la misma. 


Uno de estos métodos es el de BUSQUEDA BINARIA. Su fundamento resulta sen- 
cillo: si comparamos el elemento buscado con el central de la lista y resulta menor, 
es que estará por encima, por el contrario, estará por debajo. Veámoslo gráficamen- 
te: 


índice del primer elemento 


índice del elemento central 


índice del último elemento 





Si la cadena buscada es B$ y resulta 


B$ > A$(Kc) si B$, está en la primera mitad 


no 





B$, está en la segunda mitad 


Con una sola partición podemos desechar la mitad de los elementos, de manera que 
si realizamos una nueva partición, comparando con el elemento central de la mitad 
válida, podemos quedarnos con un cuarto de los elementos para seguir la búsqueda. 
De esta forma la convergencia es muy rápida. 


7 elemento 
MaS od buscado 





Búsqueda binaria 
Particiones sucesivas a la mitad 


Basándonos en este sencillo método, podemos elaborar una rutina rápida de bús- 
queda de cadenas alfanuméricas en listas ordenadas. Ha de tenerse en cuenta que ca- 
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da partición supone calcular los nuevos límites de la lista y el elemento central, que 
corresponde al valor medio de los límites. Dichos elementos singulares vienen repre- 
sentados por las variables KO, Kn y Kc, respectivamente. 


10 ” CARGA DE LA LISTA ORDENADA 

20 N=20 DIM AS(N) 

30 FOR K=1 TO N 

40 READ AS(K) 

50 NEXT K 

60 DATA AREA, AXILA, BALA, BARCO, CEBRA, CORCHO, DATIL, DEDO, DINAMO, DOLOR 
70 DATA FELIZ, FUGA, GATO, HUECO, INDIO, JAMON, KILO, LIMON, MANGA, PERRO 
80 BUSQUEDA BINARIA 

90 INPUT "NOMBRE BUSCADO” ; NOMS 

100 KO=1 KN=N 

110 KC=INT(C(KN-K0)>/2)>+K0O 

120 IF NOMS=AS(KC> THEN 160 

130 1F NOMS>A$(KC)> THEN KO=KC:*GOTO 110 

140 KN=KC 

150 GOTO 110 

100 PRINT ”El nombre ”,NOM$;” ocupa el lugar ”;KC 


Las líneas 10 a 70 son auxiliares y su misión es comprobar el funcionamiento de la 
rutina. 


Como origen, se toma en la línea 100 los valores 1 y N para los límites; el valor me- 
dio correspondiente se calcula en 110. 


La línea 120 controla la búsqueda por igualdad, aunque se podría haber adoptado el 
método de la inclusión. 


La línea 130 sirve de báscula para la partición. Observe cómo el nuevo valor de KO, 
en el caso de que el nombre buscado esté por debajo, se hace igual al valor central y 
en caso contrario, el límite inferior Kn, se hace igual al central. 


Pruebe esta rutina y comprobará su perfecto funcionamiento, pero introduzca un 
nombre no contenido en las DATA. Ahora el programa buscará sin descanso y sin 
detenerse y, evidentemente, no la encontrará, así que debemos añadir un control pa- 
ra poder salir de este bucle infinito. 


¿Qué condición pondremos? Introduzca la siguiente línea para ver qué pasa con los 
valores de límites y centro: 


115 PRINT KO0,KC,KN 


Haga un nuevo RUN, introduzca palabras no existentes en las DATAS y observará 
que en la quinta o sexta vuelta, los 3 límites son iguales. Como el número de vuelta 
depende evidentemente del número de la palabras de la lista, no nos sirve como indi- 
cador, así que tomamos la observación de las igualdades como conclusión, bastán- 
donos estrictamente que sean iguales los dos primeros. 


Añadamos las siguientes líneas y ahora sí funcionará con cualquier palabra, exista o 
no en la lista. 


115 IFKO = KC THEN 180 
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170 GOTO 190 
180 PRINT “No existe””, NOM$ 
190 END 


7. EJERCICIOS RESUELTOS SOBRE MATRICES 


Ejercicio 1: Dadas las calificaciones obtenidas por los alumnos de una clase, por 
asignatura, obtener la nota media de cada alumno, la nota media de cada asignatu- 
ra, el número de alumnos aprobados y suspensos y el porcentaje de ambos. 


Datos: Vamos a utilizar como ejemplo sólo 5 alumnos, aunque el programa es váli- 
do para cualquier número de alumnos. Asimismo, supondremos 6 asignaturas, va- 
lor que puede también variarse. 


ASIGNATURA 

Nombre del 

Alumno Mat Soc Dib Len Rel Quim 

Antonio García 6 7 8 7 9 9 

Luis Conde 8 9 10 9 10 9 

José Moreno 4 5 3 5 5 2 

Rubén López 3 2 6 5 5 4 

Luis Díaz 7 6 5 4 6 5 
Dadas las premisas del ejercicio, utilizaremos 3 matrices 

CONTENIDO DIMENSION TIPO 

Nombre de los alumnos (5) alfanumérica 

Asignaturas (6) alfanumérica 

Notas (5,6) numérica 


La nota media de cada alumno será la suma de los elementos de la matriz por filas, 
dividido por 6; mientras que la media de cada asignatura será la suma por columnas, 
dividido por 5 (alumnos). 


La operación de sumar filas y columnas de una tabla fue explicada en el segundo 
apartado de este capítulo, en cuyo ejercicio nos apoyaremos. 


Los datos de las matrices se cargarán desde el teclado, por medio de sentencias 
INPUT. Más adelante veremos la forma de almacenar los datos en ficheros. 
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10 ' NOTAS MEDIAS 

20 OPTION BASE 1 

30 INPUT "NUMERO DE ALUMNOS";AL 

40 INPUT "NUMERO DE ASIGNATURAS"; AS 

50 'DIMENSIONAMIENTO Y ENTRADA DE DATOS 
60 DIM ALS(AL),ASS(AS),NC(AL,AS) 

70 FOR K=1 TO AL h 

80 PRINT “NOMBRE DEL ALUMNO",K 

90 INPUT ALS(K) 

100 NEXT K 

110 FOR K=1 TO AS 

120 PRINT '"ASIGNATURA";K 

130 INPUT ASS(K) 

140 NEXT K 

150 PRINT CHR$(27)+"P'"+CHRS(27)+'"H" 

160 FOR F=1 TO AL 

ZO PRINTS O A RS " 
180 PRINT '"'NOTAS DEL ALUMNO: ";ALS(F) 
190 FOR C=1 TO AS 

200 PRINT AS$(C); 

210 INPUT N(F,C) 

220 NEXT C,F 

230 ' CALCULO DE LAS MEDIAS 

235 ' Por alumno 

236 PRINT "NOTAS MEDIAS DE LOS ALUMNOS" 
237 25=STRINGS(40,'"'=")-PRINT 25 

250 FOR P=1 TO AL 

260 FOR C=1 TO AS 

270 N(F,O)=N(F,0)+N(F,C) 

280 NEXT C 

2%0 PRINT "NOTA MEDIA DE ";¡ALS(F);"  "; USING "$ $*'";N(F,O)/AS 
300 NEXT F 

310 ' Por asignatura 

315 PRINT :PRINT “NOTAS MEDIAS DE LAS ASIGNATURAS" 
316 PRINT 25 

320 FOR C=1 TO AS 

330 FOR F=1 TO AL 

340 N(0,C)=N(0,C)+N(F,C) 

350 NEXT F 

360 PRINT "NOTA MEDIA DE ",ASS(C);"  "; USING "$ $" ,NCO,C)/AL 
370 NEXT C 

400 ' ALUMNOS APROBADOS Y SUSPENDIDOS 
410 FOR F=1 TO AL 

420 FOR C=1 TO AS 

430 IF N(F,C)><5 THEN SUS=1 


440 NEXT C 

450 SUSPENSOS=SUSPENSOS+SUS 

460 NEXT F 

470 APROBADOS=AL-SUSPENSOS 

480 PRINT :PRINT “"APROBRADOS=";APROBADOS, ''%="; USING ''Hstitik sit"; APROBADOS/AL* 100 
490 PRINT :PRINT "SUSPENSOS =";SUSPENSOS, ''%="; USING "$4Hé 4%'; SUSPENSOS/AL*100 


Ejercicio 2: Hallar el producto de una matriz por un escalar. El producto de una 
matriz (A) por un escalar K, es otra matriz (B), tal que todos sus elementos se ob- 
tienen B(i,j) = A(i,j)*K. 

A continuación exponemos la rutina para calcular la matriz (B). La entrada y salida 


de resultados la dejaremos a criterio del lector. En los ejercicios anteriores hay va- 
rios ejemplos que sin duda le ayudarán. 


10 ' PRODUCTO DE UNA MATRIZ POR UN ESCAL.:R 
20 ' AGREGAR LA RUTINA DE CARGA 

30 ' MATRIZ A(M,N) 

40 ' ESCALAR=K 


S6 


s0 

200 
210 
220 
230 
240 
300 
310 


* MATRIZ PRODUCTO 

FOR F=1 TO M 

FOR C=1 TO N 

B(F,C)=A(F,C)YK 

NEXT C,F 

' AGREGAR RUTINA DE SALIDA DE RESULTADOS 


Ejercicio 3: Hallar la inversa de una matriz. 


Este ejercicio y los dos siguientes van destinados al profesional y estudiante que uti- 
liza y realiza ejercicios en los que es necesario el cálculo de la matriz inversa. Por to- 


do 


ello, pasamos a escribir el programa, remitiendo a un libro de Matemáticas a 


aquellos lectores interesados en el proceso de cálculo. 


Como comprobación del programa, puede utilizar los siguientes ejemplos: 


—1 6 —0.1111 0.222 
A = Inversa B = B = A?! 
4 3 0.1481 0.037 
152€ 23 
A = 4 5 6 No tiene inversa (matriz singular) 
7 8 9 


Nota: Si desea obtener más decimales, cambie el PRINT USING de la línea 560. 
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' CALCULO DE LA MATRIZ INVERSA 
INPUT "ORDEN DE LA MATRIZ ";N 
OPTION BASE 1 

DIM A(N,N)>,B(N,N) 

' Entrada de datos de la matriz A 
POR F=1 TO N 

PRINT "FILA ";¡F 

FOR C=1 TO N 

PRINT "COLUMNA ";C; 


100 INPUT A(F,C) 


NEXT C 


* Validez de (A) 
FOR F=1 TO N 
B(P,F)>=1 


170 NEXT F 

180 FOR C=1 TO N 

190 FOR F=C TO N 

200 IF A(F,C)<>0 THEN 230 

210 NEXT P 

220 PRINT "LA MATRIZ (A) ES SINGULAR Y POR TANTO NO TIENE INVERSA" END 


* Calculo de la matriz inversa (B) 


240 FOR k=1 TO n 
250 AUX=A(C,K) 
260 A(C,K)=A(F,K) 
270 A(”,K)=AUX 
280 AUXB=B(C,K) 


290 


B(F,K)=AUXB 


300 NEXT K 
310 2=1/A(C,C) 
320 FOR K=1 TO N 
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330 A(C,K)=A(C,K)*Z 

340 B(C,K)=B(C,K)*Z 

350 NEXT K 

360 FOR I=1 TO N 

370 IF I=C THEN 430 

380 2=-A(I,C) 

390 FOR J=1 TO N 

400 A(1,J)>=A(1,J)>+A(C,J)*Z 
410 B(1,J)=B1(1,J)+B(C,J)*Z 


420 NEXT J 

430 NEXT 1 

440 NEXT C 

450 ' Salida de resultados 

460 PRINT “MA TR I 2 EN ESAS A" 


470 FOR F=1 TO N 

480 FOR C=1 TO N 

490 PRINT — USING "'$$é%é $8" B(F,C), 
500 NEXT C 

510 PRINT 

520 NEXT F 


Ejercicio 4: Determinante de una matriz cuadrada. 


Este programa permite calcular el valor del determinante de una matriz cuadrada 
(número de filas = número de columnas). 


El procedimiento de cálculo utilizado es el de triangulación de la matriz. De este mé- 
todo resulta que el producto de los elementos de la diagonal de la matriz triangulada 
es el valor del determinante. 


Si se desea, puede incorporarse a la entrada de datos una rutina de depuración. Para 
ello, puede adaptarse la rutina M7 (líneas 200 a 400). Los valores numéricos 5 y 7 de 
dicha rutina deben eliminarse y dejarlos como N (orden del determinante). 


"10 ' RESOLUCION DE SISTEMAS DE ECUACIONES 

20 OPTION BASE 1 

30 PRINT "Este programa permite calcular un sistema de <n> ecuaciones con <n> 
incognitas de la forma" 

40 PRINT "att X1 + a12 X2 + a13 X3 + aín Xn = b1 $ 

50 PRINT "a21 X1 + a22 X2 + a23 X3 + a2n Xn = b2 " 

60 PRINT " da 

70 PRINT "ant X1 + an2 X2 + an3 X3 + ann Xn = bn 

80 LOCATE 12,20: INPUT "INTRODUZCA EL NUMERO DE ECUACIONES";¡EC 
90 DIM A(EC,EC+1) 

100 ' Entrada de datos 

110 FOR F=1 TO EC 

120 PRINT "INTRODUZCA LOS COEFICIENTES DE LA ECUACION";F 

130 FOR C=1 TO EC 


140 PRINT "A";¡F;¡C;'"= "*LOCATE 10,C+1;: INPUT "",A(F,C) 
150 NEXT C 

160 INPUT "TERMINO INDEPENDIENTE ";¡A(F,EC+1) 

170 NEXT F 


180 'sistema en pantalla 
190 FOR F=1 TO EC 

200 FOR c=1 TO EC 

210 PRINT A(F,C),"  *, 
220 NEXT C 


230 PRINT "-";A(F,EC+1) 
240 NEXT F 
250 PRINT : INPUT “DATOS CORRECTOS (S/N) “28 


260 IF 25="S" OR Z$="s'" THEN 320 

270 INPUT '"CUANTOS DATOS INCORRECTOS", IN 

280 FOR K= 1 TO IN 

29%0 INPUT '"INTRODUZCIR F1la,Columna, Valor correcto',F,C,A(F,C) 
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300 NEXT K 

310 GOTO 180 

320 ' Calculo 

330 FOR F=1 TO EC 

340 FOR C=F TO EC 

350 IF A(F,C)<>0 THEN 370 EL>5E NEXT C 

360 PRINT " EL SISTEMA TIENE INFINITAS SOLUCIONES “ END 
370 FOR K=1 TO EC+1 

380 X=A(F,K)-A(P,K)=A(C,K) A(C,K)=X 

390 NEXT K 

400 Y=1/A(F,F) 

410 FOR K=1 TO EC+1-A(F,K)=A(F,K)*Y NEXT K 

420 FOR C=1 TO EC 

430 IF C=F THEN 480 

440 Y=-A(C,F)> 

450 FOR K=1 TO EC+1 

460 A(C,K)=A(C,K)+A(F,K)>*Y 

470 NEXT K 

480 NEXT C 

490 NEXT F 

500 'Salida de resultados 

510 PRINT " SOLUCION DEL S TIS: TUE NM CAM 
520 PRINT "============2==2=2=3222=3223222222222222222=2======"' 
530 FOR C=1 TO EC 

540 PRINT "X(";¡C,") ="; USING '"'HitHéé 4%", A(C,EC+1) 

550 NEXT C 


Ejercicio 5: Resolución de sistemas de ecuaciones lineales. 


El programa que acompañamos permite obtener las soluciones de un sistema de 
ecuaciones lineales con el mismo número de ecuaciones que incógnitas, siempre que 


el determinante de la matriz de coeficientes no sea nulo. 


Se ha incluido una rutina de depuración de los datos de entrada, similar a la expues- 


ta en el apartado correspondiente. 


Si se desea, pueden eliminarse las líneas 40 a 80, que son exclusivamente de presenta- 


ción de la forma general de un sistema de ecuaciones lineales. 


10 CALCULO DEL DETERMINANTE DE UNA MATRIZ CUADRADA 
20 INPUT 'ORDEN DEL DETERMINANTE ",N 

30 OPTION BASE 1 

40 DIM A(N,N)>,2(N) 

50 ' Entrada de datos de la matriz 

60 FOR F=1 TO N 

70 PRINT "FILA ";¡P 

80 FOR C=1 TO N 

%0 PRINT "COLUMNA ';¡C; 

100 INPUT A(F,C) 


130 NEXT F 

140 ' Validez del determinante (matriz no singular) 
150 FOR C=1 TO N 

160 FOR P=C TO N 

170 IF A(F,C)<>0 THEN 200 

180 NEXT F 

190 PRINT "LA MATRIZ ES SINGULAR Y POR TANTO EL DETERMINANTE NULO" 
200 ' Calculo de la matriz inversa (B) 

210 FOR k=1 TO n 

220 AUX=A(C K) 

230 A(C K)=A(F K) 

240 A(F,K)=AUX 

250 NEXT K 
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260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


Z(C)=A(C,C) 
Z=1/A(C,C) 

FOR K=1 TO N 
A(C,K)=A(C,K)*Z 
NEXT K 

FOR I=1 TO N 

IF I=C THEN 370 
2=-A(1,C) 

FOR J=1 TO N 


A(1,J3)=A(1,J)+A(C,J)*Z 

NEXT J 

NEXT 1 

NEXT C 

' Calculo de los productos de la diagonal 
P=1 


FOR K=1 TO N P=P*Z(K)-NEXT K 
' Salida de resultados 
PRINT :PRINT "El valor del determinante es 
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3. Ordenación 


1. INTRODUCCION 


Dentro de la gestión de datos, la obtención de listas ordenadas de los mismos, ocu- 
pan un lugar clave. Por ello, los programas de tratamiento de datos incorporan una 
o varias rutinas de clasificación, tanto para datos numéricos como alfanuméricos. 


Las rutinas de clasificación u ordenación, conocidas como SORTs son, por tanto, 
independientes de los propios programas a que acompañan y secundarias, en el sen- 
tido de que el tiempo invertido por ellas debe ser mínimo, a fin de ceder el control lo 
más rápidamente al programa principal. 


Los tipos de ordenación posibles dependen de la naturaleza de los datos y en térmi- 
nos generales pueden clasificarse de la forma siguiente: 


. De menor a mayor 
Datos numéricos 
De mayor a menor 


Datos alfanuméricos f[f Alfabéticamente 


Por supuesto que existen otros tipos de ordenación: por grupos alfabéticos (v.g. ca- 
denas que comienzan por la misma letra); por marcas (v.g. números comprendidos 
entre 1.000 y 2.000); por atributos comunes (v.g. personas con la misma nacionali- 
dad), etc. 


Pero si variados son los tipos de ordenación que pueden establecerse, aún lo son más 
los métodos existentes para conseguirlo, desde los más sencillos e intuitivos, hasta 
sofisticados sistemas basados en algoritmos matemáticos complejos. 


Esta diversidad de métodos no es de ningún modo caprichosa, sino que obedece a 
necesidades muy variadas. No es lo mismo tratar un pequeño número de datos que 
uno grande, ni tampoco resulta lo mismo ordenar una lista poco desordenada, que 
una de carácter caótico o aleatorio. 


Por todo ello, no puede hablarse de un método mejor o peor que otro, si no va uni- 
do este juicio a dos parámetros: tamaño del grupo de datos y características del mis- 
mo. 
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En los epígrafes que siguen se exponen algunas de estas técnicas, indicándose la ido- 
neidad de su aplicación según los parámetros citados. 


Todas las rutinas de ordenación expuestas se complementan con las incluidas al fi- 
nal del capítulo y que se citan a continuación: 


1* Entrada de datos. Esta rutina permite la carga de datos que componen la lista, 
desde el teclado, tanto numéricas como alfanuméricas. 


2* Grabación de datos en fichero. Los datos introducidos por teclado son salvados 
en un fichero secuencial. 


3* Lectura de ficheros. permite recuperar datos archivados. 


4* Salida de datos ordenados: Presenta los datos una vez ordenados por cualquiera 
de los métodos que se exponen. 


Estas cuatro rutinas, así como las de ordenación, se han elaborado de forma que se- 
an compatibles entre sí, lo cual permite que sean ensambladas mediante MERGE, 
constituyendo un completo programa de ordenación. 


PGM.ORDENACION = R.l +R.2+R.3 + R.ORDENACION + R.4 


Para mayor comodidad del lector, se incluye un programa con las cuatro rutinas en- 
sambladas y dirigidas desde un menú que permite además la carga (MERGE) en la 
rutina de ordenación deseada, trabajando todo conjuntamente. 


2. ORDENACION POR INTERCAMBIO 


Este método de ordenación, también conocido como dicotómico, es quizá el más in- 
tuitivo. Se basa en recorrer la lista de datos desde el principio, comparando elemen- 
tos contiguos e intercambiándolos si no están ordenados. 


En una lista genérica A$(), se compara A$(1) con A$(2) y se coloca como A$(2) el 
mayor de los dos, luego se compara A$(2) con A$(3) y así sucesivamente. 


Cuando se termina de recorrer la lista, tendremos el mayor situado en último lugar, 
es decir, en su sitio. Por tanto, en la segunda vuelta (2% bucle) ya no es necesario lle- 
gar hasta él, sino hasta el antepenúltimo y en general hasta el anterior al último ele- 
mento ordenado. Es decir, si I es la variable del primer bucle, el límite del segundo 
será N—I, siendo N el número de datos a ordenar. 


Veamos cómo será una rutina que utilice este método. 


1000 ” ORDENACION POR INTERCAMBIO 
ol O E ORDENAL 703 due 
1020 FOR I=i TO N-1 

1030 FOR J=1 TO N-1 

1040 IF AS(J><=ASC(J+1> THEN 1080 

1050 XS=AS(J) . 

1060 ASC(J>=ASC(J+1) 

1070 AS(J+1)=X5 

1080 NEXT J 

1090 NEXT 1 


El esquema de funcionamiento de la rutina es el siguiente: 


Suponiendo que el elemento A$(J) =“*B” y AS(J+1)= “A” 


AS(J) AS(J + 1) 
1050 B A 
l , X$=“B” 


1060 A 


A al 
1070 A B 


El método resulta sencillo y es quizá su mayor virtud; en cambio, su velocidad resul- 
ta baja. Hay que tener en cuenta que el número de vueltas es siempre fijo, de manera 
que si una lista está casi ordenada, tardará lo mismo que en otra aleatoria. 





Otro tanto a su favor, aunque es común a otros métodos, es que no consume memo- 
ria, puesto que únicamente se utiliza una variable, la auxiliar (X$), dado que la or- 
denación se realiza sobre la propia lista. 


3. METODO DEL BUBBLE SORT O DE LA BURBUJA 


Las comparaciones se realizan comenzando por el primer elemento frente a todos 
los demás. Si en una comparación resulta ser menor, conserva su sitio, en caso 
contrario se intercambia. 


En cada pasada el menor queda, pues, situado arriba, por ello recibe el nombre de 
método de burbuja, ya que los números ascienden por la lista como las burbujas en 
una bebida gaseosa. Por cierto, a estas alturas de la lectura del libro, quizá sea el 
momento de prepararnos un refresco a la vez que utilizamos el bubble sort. 


Como puede observarse, en cada pasada se está seleccionando el mínimo de la serie, 
por lo que también se le conoce como método de selección del mínimo. Evidente- 
mente, si se desea una ordenación en sentido inverso, el método es válido, basta con 
selecciona el máximo en vez del mínimo, ello equivale a sustituir el operador de rela- 
ción **>”” de la línea 1040 por el “*<>””, en la rutina que incluimos a continuación. 
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1000 7 ORDENACION METOCCO DE LA BURBUJA 
LOLA o ORDENA2 ............ 
1020 FOR I=1 TO N-1 

1030 FOR J=1+1 TO N 

1040 IF ASCI>>ASCJ> THEN X5=AS5C(I1>: ASC I>= 
AS(J>:ASCJ)=XS 

1050 NEXT J 

1060 NEXT 1 


Este método es muy similar al anterior. Sólo utiliza una variable auxiliar, de forma 
que los intercambios se realizan dentro de la propia matriz, por lo que el consumo 
de memoria es mínimo. 


4. BUBBLE SORT CON MARCA 


Se trata de una variante del método anterior, que introduce una mejora en el tiempo 
de procesado. 


En el anterior, si la lista a tratar está compuesta de elementos **cuasi ordenados”, la 
ordenación debiera ser más rápida, pero el número de pasadas es fijo, completa- 
mente independiente del grado de orden o anarquía en que se encuentra la lista ini- 
cial. 


Si tras una pasada ninguno de los elementos de la serie se ha movido, quiere decirse 
que la lista ya está ordenada, por lo que lo lógico es salir de los bucles, abandonando 
el proceso. 


Este método incorpora una marca, consistente en hacer bascular el valor de una va- 
riable entre 0 y 1. Si hay cambio, toma el valor 0, si no lo hay toma el 1 (por supues- 
to que pueden tomarse dichos valores al revés, o de cualquier otra forma similar). El 
control de la marca puede realizarse mediante IF o bien aprovechando la potencia 
de la sentencia WHILE, como en el listado que se ofrece a continuación. 


1000 “ ORDENACION. BURBUJA CON MARCA 
LOU ds ORDENAS: La dada a 
1020 MARCA=0 

1030 WHILE MARCA=0 

1040 MARCA=1 

1050 FOR I=1 TO N-1 

1060 IF ASCI>>ASCI+1)> THEN XS=ASCI>:ASCI 
)=AS(I+1): ASC I+1>=X8S.: MARCA=0 

1070 NEXT 1 

1080 WEND 
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Este método, habida cuenta de sus características, está especialmente indicado en 
listas con datos casi ordenados, como por ejemplo listas ordenadas, en las que se in- 
tercalan o sustituyen nuevos datos y deben volver a ordenarse (ficheros dinámicos). 


5. INTERCAMBIO RETARDADO 


Una mejora de todos los métodos basados en la búsqueda del mínimo por intercam- 
bios sucesivos, consiste en retardar dichos intercambios, en tanto en cuanto que 
dicho mínimo no lo sea de toda la lista (mínimo absoluto). 


Es decir, en cada pasada se extrae el mínimo absoluto. Una vez encontrado se sitúa 
en su sitio. De esta forma en la comparación de dos elementos no se produce inter- 
cambio, hasta haber encontrado dicho mínimo (retardo en el intercambio). 


El proceso se repite nuevamente para encontrar el segundo mínimo, y así sucesiva- 
mente, la siguiente rutina emplea dicho método. 


1000 7 ORDENACION POR INTERCAMBIO RETARD 
ADO 

TOTO AAA ORDEÑA4S: uo ias 
1020 FOR I=1 TO N-1 

1030 MINIMO=I 

1040 FOR J=I+1 TO N 

1050 “ Busqueda del minimo ..... 

1060 IF AS(J)<ASC(MINIMO>) THEN MINIMO=J 
1070 NEXT J 

1080 “* Intercambi0 ..........+... 

1090 IF MINIMO- 1 THEN XS5=ASC(MINIMO 
): ASCMINIMO>=ASCI>: ASC I>=X5 

1100 NEXT 1 


El bucle interno (líneas 1040-1070) es el encargado de encontrar el mínimo en cada 
pasada. Tras salir de este bucle, se produce la colocación del mínimo encontrado en 
el lugar que le corresponde. Observe que en la búsqueda del mínimo, lo que se reco- 
ge no es su valor, sino simplemente el lugar que ocupa. 


6. BUSQUEDA DEL MINIMO Y MAXIMO. DOBLE PASADA 


Si en el método anterior se buscaba el mínimo, parece lógico buscar simultáneamen- 
te el máximo. El mínimo irá al primer lugar y el máximo al último, por lo que la si- 
guiente pasada debe realizarse sobre N—2 elementos, en vez de sobre N—1. En pa- 
sadas sucesivas, los límites del bucle serán cada vez menores, contando de dos en 
dos, todo lo cual da más velocidad al proceso. 
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Compare ambas rutinas y haga una prueba de velocidad, con un número de datos 
suficientemente grande. 


1000 7 ORDENACION METODO DOBLE PASADA 
EDI A E ORDENAS: cosas 
1020 PRIMERO=1: ULTIMO=N- 1 

1030 WHILE ULTIMO>PRIMERO 

1040 FOR K=1 TO N-1 

1050 IF AS(K>>AS(K+1) THEN X5=ASCK): 
AS(K)=A5(K+1): ASBCK+1)=X58: Y=K 

1060 NEXT K 

1070 ULTIMO=Y-1 

1080 FOR K=ULTIMO TO PRIMERO STEP -1 
1090 IF ASC(K>>AS(K+1> THEN XS=AS(K): 
AS(K>=A5(K+1)>: ASCK+1>)=X5: Y=K 

1100 NEXT K 

1110 PRIMERO=Y+1 

1120 WEND 


7. METODO DE SHELL-METZNER 


Todos los métodos expertos tienen el inconveniente común de su lentitud (en mayor 
o menor grado) cuando el número de datos es grande y se encuentran muy desorde- 
nados, debido a que el número de vueltas de los bucles resulta excesivamente eleva- 
do. 


El Shell-sort —o método de **concha”*— está basado en un algoritmo matemático, 
algo más complicado que la simple comparación e intercambio, ya que en él la com- 
paración no se realiza como parece más lógico —entre elementos consecutivos— si- 
no entre elementos separados entre sí en una distancia constante, que llamaremos 
CTE, cuyo valor más habitual es: 


CTE = (21X—1)/2 
Donde X es el exponente de la menor de las potencias de 2, de forma que 21X > N 


(número de elementos de la lista). 


De esta forma, las comparaciones se harán entre 


AS(K) y AS(K + CTE) 


donde K representa la variable del bucle. 
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Aunque existen otros algoritmos para calcular CTE, el indicado es uno de los más 
utilizados, pues produce muy buenos resultados. 


Veamos el listado: 


1000 ”" ORDENACION METODO SHELL :1> 
TOLDOS Pc ORDENAG ........ 
1020 X=FIX (LOG(N>/LOG(2)) 

1030 CTE=(248X-1>/2 

1040 WHILE CTE 

1050 X=N-CTE: Y=1 

1060 WHILE Z<=X 

1070 K=Z 

1080 IF ASC(K>>ASC(K+CTE)> THEN XS=A5(K): 
AS (K)=ASC(K+CTE): ASC(K+CTE>)=x5: K=K-CTE: 
IF K>1 THEN 1100 


Una variante también muy utilizada es hacer que CTE valga 
CTE = N/2 

de forma que las comparaciones se realizarán 
AS(K) y AS(K + N/2) 


El funcionamiento es el siguiente: primero se comparan los elementos dos a dos en 
la forma indicada y se ordenan. Segundo, se fusionan los grupos de dos elementos 
en grupos de cuatro. Tercero, los grupos de cuatro en grupos de ocho y así hasta ob- 
tener la lista clasificada. 


Como ejemplo gráfico, a fin de facilitar el seguimiento del método, veamos cómo se 
ordenaría la siguiente lista numérica: 


14 14, 6, 10,2, 127,95 — valor de N=8 
— valor de CTE=8/2=4 

6 2-5 

9-10 
10 6-7 

12-14 
2 
12 
7 
9 Comparación 1? 

CTE=4 

5 
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14 14 


7 7 ) 
10 1) 
AE? ) 2-5:0:79-10212:14 
5 9-10-12-14 6 
) Grupo de 8 (ordenado) 

12 Grupo de 4 10 

5) 
9 0) 
2 ,) 

Comparación 2* Comparación 3? 


A continuación exponemos el listado de esta variante del método de Shell. 


1000 “ ORDENACION. METODO DE SHELL (2) 

LOAD a a sa CORDENÑAZ ula icaós ds 

1020 CTE=INT((N+1)/2) - 

1030 FOR K=1 TO N-CTE 

1040 IF AS(K><=ASCK+CTE> THEN 1060 

1050 XS=AS5(K): AS(K)=AS(K+CTE)>: ASCK+CTE)>=XS 

1060 NEXT K 

1070 ¡F CTE=1 THEN 1100 ELSE CTE=CTE-1:GOTO 1030 
1100 “ SALIDA DE DATOS 


8. QUICKSORT 


El método de ordenación Quicksort, último de los expuestos, es sin duda el más efi- 
caz en el tratamiento de grandes cantidades de datos y muy desordenados. 


La metodología no es difícil, se trata de realizar unas peticiones en la lista, tratándo- 
las por separado y con sucesivas subdivisiones. Se toma el primer elemento de la lis- 
ta desordenada como pivote, se comparan con el resto de los elementos, colocándo- 
los en dos grupos, los menores encima y los mayores debajo. 


ELEMENTO 
MENORES PRIMERO MAYORES 





(PIVOTE) 
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A continuación se realiza la partición de la lista en dos y se vuelve a elegir un pivote 
por grupo, y por comparación se vuelve a obtener dos subconjuntos de cada uno de 
ellos y se repite la fragmentación y el proceso hasta que no pueden volverse a dividir. 


Como crítica al método, debemos indicar que frente a una mayor optimización en el 
tratamiento de listas grandes y desordenadas, se encuentra el inconveniente de su 
mayor consumo de memoria al utilizar matrices auxiliares, aunque hoy día las me- 
morias de los ordenadores han dejado de ser problema. 


Veamos el listado de esta rutina. 


1000 “ METODO DE ORDENACION QUICKSORT 

LOBA ORDENAB: auspicia 

1020 CON=FIX(LOG(N>/LOG(2>>+4 

1030 ERASE X: DIM X(CON, 2) 

1040 X(1,1>=1:X(1,2>=N 

1050 WHILE CON 

1070 C1=X(CON, 1): F1=X(CON, 2) 

1080 CON=CON-1 

1090 XS$=A5(C1>:C2=C1 

1100 F2=F1:F1=F1+1 

1110 F1=F1-1 

1120 IF F1=C1 THEN 1170 

1130 IF ASC(F1><XS5 THEN A$(C1>=A5(F1> ELSE 1110 
1140 C1=C1+1 

1150 IF C1=F1 THEN 1170 

1155 IF A$S(C1>>X5 THEN A$S(F1)=A$(C1>:GOTO 1110 ELS 
E 1140 

1160 IF AS(C1>>X$ THEN AS(F1>=AS5(C1>:GOTO 1110 
1170 AS(C1)=XS 

1180 IF C2<C1-1 THEN X(CON+1,1)=C2: X(CON+1,2>)=C1-1 
: CON=CON+1 

1190 IF F1+1<F2 THEN X(CON+1,1>=F1+1: X(CON+1,2)=F2 
: CON=CON+1 

1200 WEND 


9. PROGRAMA GENERAL DE ORDENACION 


Como ya se indicó en el epígrafe 1 de este capítulo, y con el fin de que el lector pueda 
probar (si lo desea) los distintos métodos de ordenación expuestos, se incluyen en es- 
te apéndice una colección de rutinas que permiten trabajar en este campo de la orde- 
nación y con cualquiera de los métodos. 

Las rutinas se han preparado de forma que esté asegurada su compatibilidad con- 
junta. Como referencia, incluimos a continuación su número de orden, nombre y 
números de línea que abarca cada una de ellas. 
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1? MENU 60 - 210 Menú de opciones que controla 
funcionamiento conjunto 
ENTRADAT 300 - 470 Entrada de datos (teclado) 


EE 
z 


ORDENAN 1000 - VAR | Rutina de ordenación n* n 
2000 - 2120 | Salida de datos ordenados 


SALDATOS 
A continuación se incluyen las citadas rutinas listadas y comentadas. 






1? MENU. Consiste en un menú directorio desde el cual puede accederse a resto de 
las rutinas. Contiene las siguientes opciones: 


1. ENTRADA DE DATOS 

2. GRABAR FICHERO 

3. LEER FICHERO 

4. ORDENACION 

5. SALIDA DATOS ORDENADOS 

6. CARGAR RUTINA DE ORDENACION 


Las opciones 1 a 5, corresponden obviamente a las rutinas del cuadro anterior 
Q? a5?). 


La opción 6 permite la carga de cualquier rutina de ordenación anteriormente ex- 
puesta, sin interruptir la ejecución del programa, para ello se utiliza la orden 
CHAIN MERGE, línea 2530. 


El listado es el siguiente: 


50 MENO. 
78 PRINT CLS$ 

B0 PRINT J1AB(25) ME NU 

0 PRINT TAB(24) z========== 

100 PRINT 

110 FRINT TAB(20) 1 Entrada de datos" 

120 PRINT TAB(20) 2 Grabar fichero 

130 PRINT TAB(20) 3 Leer fichero" 

140 PRINT TAB(20) 4 Ordenacion" 

150 PRINT TAB(20) 5 Salida de datos' 

155 Salir de rutina de ordenacion 

160 PRINT TAB(20)'ó Cargar rutina de ordenacion" 

170 PRINT PRINT PRINT+PRINT 

180 INPUT SELECCIONAR OPCION: (1-5) ',O0P 
190 IF OP=6 THEN PRINT CLS$ PRINT"'O RDENANDO LISTA GOTO 2500 
200 ON OP GOSUB 300,500,700,1000,2000 

210 GOTO 60 


2? ENTRADA DE DATOS (ENTRADAT). Permite la introducción de datos por 
teclado —de una lista de la dimensión deseada— tanto numéricos como alfanu- 
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méricos. Este tipo de entradas fue estudiado en el capítulo 2%, no incorpora de- 
puración de los mismos, por lo que deben ser introducidos con cierto cuidado 
(puede añadirse una rutina de depuración de las estudiadas en dicho capítulo 2). 


300 ' RUTINA DE ENTRADA DE DATOS 
310 ' ENTRADAT 

320 LON=0.PRINT CLS$ 

330 INPUT "No de datos de la lista ";¡N 

340 ERASE AS:DIM AS(N) 

350 AS(0)=STRS(N) 

360 FOR K=1 TO N 

370 PRINT'"DATO";K;: INPUT DS 

380 IF VAL(DS) THEN IF LEN(DS)>LON THEN LON=LEN(D$S) 

390 AS(K)=D5 

400 NEXE K 

410 Homogene1zar datos (igual longitud) 
420 FOR ka 1 TO N; IP VALC(AS(K))= =0 AND AS(K)<>'"0'" THEN 440 

430 AS(K)=STRINGS(LON-LEN(AS(K)),'0'")+AS(K) 

440 NEXT K 

450 PRINT'"DATOS ALMACENADOS EN MEMORIA" 

460 PRINT: INPUT "PRESIONAR <RETURN> PARA CONTINUAR",2$ 

470 RETURN 


ga 





Los números han de ser enteros (sin decimales), si se necesita trabajar con núme- 
ros reales, deben multiplicarse previamente o por programa por un valor cons- 
tante a fin de hacerlos enteros, debido a que el programa trabaja siempre con da- 
tos alfanuméricos, a fin de dotarlo de más versatilidad. Por ejemplo si tenemos 
una lista como la siguiente 


0.123 1.21 4.328 0.26 0.04 
procedemos a multiplicar los datos por 1000 de forma que quede 
123 1210 4328 260 40 


En la salida de resultados puede imprimirse los datos divididos por 1000 y obte- 
ner así los verdaderos valores. 


GRABAR EN FICHERO (GRAFICHE). Los datos introducidos mediante 
ENTRADAT son grabados en el disco, de forma secuencial. (Ver ficheros se- 
cuenciales). 


En primer lugar se guarda el número de datos que contiene la lista (N) y después 
los datos propiamente dichos. 


De esta forma, el valor N también se incluye en el fichero. 


Dato N* Dato N* 
1 2 
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Número datos 
N 


Dato N* 





El nombre del fichero se establece mediante INPUT. 


500 * 


s10 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
25 

620 


42 


700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
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GRABACION DE DATOS EN FICHERO 
ó GRAPICHE 

PRINT cls$:PRINT'"GRABACION DE DATOS EN FICHERO"-+PRINT 

INPUT "NOMBRE DEL FICHERO '';FS 

OPEN "0",1,FS 

PRINT:PRINT:PRINT"'G R A B A N D 0 FICHERO "¡FS 

WRITE $1,AS5(0) 


FOR K=1 TO N 

WRITE $1,AS(K) 

NEXT K 

CLOSE 

PRINT"“FICHERO ";¡FS;" GRABADO PRESIONAR <ENTER> PARA CONTINUAR"; INPUT '" 
RETURN 


LEER DATOS DE UN FICHERO (LEEFICHE). Permite realizar la operación 
contraria a la rutina anterior, es decir, recuperar los datos guardados en el disco. 


Para poder realizar la lectura se pide el nombre del fichero, que debe ser el mis- 
mo que se utilizó al grabar. 


Como el primer dato del archivo es el número de elementos, los bucles y dimen- 
sionamiento de la matriz (lista) que va a recibir los datos se realiza en función de 
dicho número, leído del fichero por la variable (N). 


3 LECTURA DE DATOS DE UN FICHERO 
3 LEEF ICHE 

PRINT CLS$5 

INPUT "NOMBRE DEL FICHERO ”,FS$ 


OPEN ”I”,1,FS 

INPUT +*1,N$ N=VAL(NS)> 

ERASE A$ DIM AS(N> AS(0)=NS$ 

FOR K=1 TO N 

INPUT *1,AS(K)>) 

NEXT K 

CLOSE 

PRINT”FICHERO ”,F$,” LEIDO PRESIONE <ENTER> PARA CONTINUAR ”, INPUT ””,Z$ 
RETURN 


ORDENACION (ORDENAn). Esta rutina puede ser cualquiera de las incluidas 
en los apartados precedentes. 


Los nombres dados a dichas rutinas es ORDENA, seguido de un número que las 
identifica y cuya relación incluimos a continuación. 


Nombre Método 


ORDENA1 Intercambio 
ORDENA2 BUBBLE 

ORDENA3 BUBBLE con marca 
ORDENA4 Intercambio retardado 
ORDENAS Doble pasada 
ORDENA6 SHELL-METZNER (1) 
ORDENA7 SHELL-METZNER (2) 
ORDENA8 QUICK-SORT 
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6? SALIDA DE DATOS ORDENADOS (SALDATOS). Constituye una sencilla 
rutina de salida de datos ordenados. En caso de que el número de datos sea ma- 
yor de 20, se interrupte el scrolling automático de pantalla, a fin de observarlos 
con detenimiento, y presionando ENTER se produce la salida del siguiente blo- 
que de 20 datos. (línea 2070). 


Las líneas 2020 y 2080 permiten que la salida de datos se realice también por 
impresora. 


¿000 RUTINA SALIDA DE DATOS 
2010 * SALDAT 

2020 PRINT CLS$ INPUT "SALIDA POR IMPRESORA (S/N> ”, IS 

2030 PRINT CLS$ 

2040 PRINT”DATOS ORDENADOS” 

2050 PRINT" ===============" 

2060 FOR K=1 TO N 

2070 IF K/20=INT(K/20> AND UPPERSCI$S>+1>"”5S” THEN INPUT "PRESIONAR <RETURN> PARA 
ONTINUAR”,Z$ 

2080 IF UPPER$ (1$)="5S"” THEN LPRINT A$S(K> 

2090 PRINT A$(K> 

2100 NEXT K 

2110 PRINT ANPUT "PRESIONAR <RETURN> PARA CONTINUAR”, ZS$ 

2120 RETURN 


Conjunto Ensamblado 


Por último y para mayor comodidad del lector, se incluye un programa con todas 
las rutinas mencionadas, convenientemente ensambladas y regidas desde el menú. 


Como observará, se han añadido algunas pequeñas modificaciones con el fin de que 
puedan funcionar en conjunto. 


Para probar cómodamente todos los métodos de ordenación descritos, e incluso 
cronometrar el tiempo invertido por cada uno, proceda de la siguiente forma. 


1. Grabe las rutinas de ordenación con el nombre que se incluye en la segunda línea 
de cada listado. 


2. Grabe el programa que incluimos al final con las rutinas de trabajo ensambladas, 
tal y como está en el listado. El nombre indicado para este programa es ORDEN. 


3. Haga RUN”ORDEN o RUN simplemente si lo tiene ya en memoria, para ejecu- 
tar el programa. 


Una vez aparezca el menú, seleccione la opción 6, introduciendo 
—6 <ENTER >—. El programa le pedirá el nombre de la rutina de ordenación 
que desea utilizar; introduzca el nombre según figura en el epígrafe 5* (si los gra- 
bó con esos mismos). 


Una vez de vuelta al menú, introduzca una lista de datos numéricos (del tamaño 
que desee) totalmente desordenados. (También puede usar un método aleatorio 
sustituyendo el INPUT de ENTRADAT por un RND). 


4. Cuando retorne al MENU, seleccione la opción 2 para grabarlos en el disco. Co- 
mo nombre puede utilizar “NUMEROS” o cualquier otro. 
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S. 


Seleccione nuevamente la opción 1 e introduzca ahora una lista de datos alfanu- 
méricos. Después la 2 para grabarlos. Un nombre apropiado puede ser, por 
ejemplo, “PALABRAS”. 


Ahora puede proceder a ordenar cualquiera de los dos ficheros creados. Si es 
precisamente el último, éste se encontrará ya en memoria; por tanto, basta con 
que seleccione la opción 4 y después la 5 con el fin de verlos ordenados. 


Si desea ordenar un archivo que está contenido en disco utilice la opción 3 para 
leerlos, luego 4 para ordenar y 5 para imprimirlos en pantalla, ya ordenados. 


Tenga en cuenta que todas las rutinas retornan al MENU al finalizar su tarea. 


Notas: 


1 


10 
20 
30 
40 
50 
60 
70 
80 
90 


En todos los métodos de ordenación expuestos, se ha considerado que ésta se re- 
aliza de menor a mayor. Para obtener clasificaciones en sentido contrario basta 
con cambiar los operadores de relación de los IF, o bien, simplemente cambie el 
bucle de salida de datos en la forma. 


FOR K=NTO 1 STEP—1 
(Línea 2060 de la rutina SALDATOS) 


Si desea salvar los datos ordenados tras las operaciones pertinentes, utilice la op- 
ción 2 (grabar), ya que tras la opción 4 (ordenar), en memoria estarán todos los 
datos ordenados. 


7 CONJUNTO DE RUTINAS PARA ENSAMBLAR CON PGM DE ORDENACION 
E ORDEN 
DIM A$(10>,X(2,1> 
CLS$=CHR$ (27 )+"E"+CHR$ (27)+”H” 
PRINT CLSS$ 

AS MENU 
PRINT CLS$ 

PRINT TAB(25)"M E N U” 

PRINT TAB(24>"=========="” 


100 PRINT y 

110 PRINT TAB(20>”1 “Entrada de datos” 

120 PRINT TAB(20>"2 Grabar fichero” 

130 PRINT TAB(20>”3. Leer fichero” 

140 PRINT TAB(20>”4 Ordenacion” 

150 PRINT TAB(20)”5. Salida de datos” 

155 ” Salir de rutina de ordenacion 

160 PRINT TAB(20)”6 Cargar rutina de ordenacion” 

170 PRINT PRINT PRINT PRINT 

180 INPUT "SELECCIONAR OPCION (1-5) ”,OP 
190 IF OP=6 THEN PRINT CLS$ PRINT"O RDENANDO LISTA” GOTO 2500 
200 ON OP GOSUB 300,500,700,1000,2000 


210 GOTO 60 
300 7 .. 


RUTINA DE ENTRADA DE DATOS 


AS ENTRADAT 
320 LON=0: PRINT CLSS$ 

330 INPUT "No de datos de la lista ”,N 

340 ERASE AS$S:DIM AS(N> 

350 AS(0)=STRS(N> 

360 FOR K=1 TO N 

370 PRINT'DATO”,K, INPUT DS 

380 IF VAL(DS> THEN IF LEN(DS>>LON THEN LON=LENCDS)> 
390 AS(K>=DS 

400 NEXT K 
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410 
420 
430 
440 
450 
460 
470 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
Z$ 

620 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


Homogeneizar datos (igual longitud) 
FOR k=1 TO N IF VALCAS(K>>=0 AND A$(K)<>”0” THEN 440 
AS(K>=STRINGS (LON-LENCAS(K>)>,'0')+AS(K> 

NEXT K 

PRINT"DATOS ALMACENADOS EN MEMORIA” 

PRINT INPUT "PRESIONAR <RETURN> PARA CONTINUAR”,Z$ 


RETURN 

A GRABACION DE DATOS EN FICHERO 
N GRAFICHE 

PRINT cls$ PRINT"GRABACION DE DATOS EN FICHERO” PRINT 


INPUT "NOMBRE DEL FICHERO ”,FS$ 

OPEN *”0"”,1,FS 

PRINT PRINT PRINT"G R A B A N D O FICHERO ”,FS$ 
WRITE +*1,ASC(0> 

FOR K=1 TO N 

WRITE 4*1,AS(K) 


NEXT K 

CLOSE 

PRINT"FICHERO ”,F$,” GRABADO PRESIONAR <ENTER> PARA CONTINUAR”, INPUT '” 
RETURN 

Ñ LECTURA DE DATOS DE UN FICHERO 

% LEEFICHE 

PRINT CLS$ 

INPUT "NOMBRE DEL FICHERO ”,FS$ 


OPEN ”1”,1,FS 

INPUT 41, NS N=VAL(NS)> 

ERASE AS DIM AS(N)> AS(0)=NS 

FOR K=1 TO N 

INPUT *1,AS(K) 

NEXT K 

CLOSE 

PRINT"FICHERO ”,FS," LEIDO PRESIONE <ENTER> PARA CONTINUAR ”, INPUT ””,ZS 
RETURN 


1000 “ RUTINA DE ORDENACION A ENSAMBLAR 

1020 7 

1030 “7 

1040 7 

1050 7 

1500 ” Salida de la rutina de ordenacion 

1510 PRINT INPUT”DATOS ORDENADOS PRESIONE <ENTER> PARA CONTINUAR ”,Z$ 


1520 GOTO 70 
2000 * 


RUTINA SALIDA DE DATOS 


2010 ” SALDAT 


2020 


PRINT CLS$ INPUT "SALIDA POR IMPRESORA (S/N) ”,IS$ 


2030 PRINT CLS$ 


2040 


PRINT'DATOS ORDENADOS” 


2050 PRINT"===============" 


2060 
2070 
ONTI 
2080 
2090 
2100 
2110 
2120 
2500 
2510 
2520 
2530 


FOR K=1 TO N 

IF K/20=INT(K/20> AND UPPER$(1$)<>”S” THEN INPUT "PRESIONAR <RETURN> PARA 
NUAR”,Z$ 

IF UPPERS (I$>="S” THEN LPRINT AS$(K) 

PRINT AS(K> 

NEXT K 

PRINT INPUT "PRESIONAR <RETURN> PARA CONTINUAR”,ZS$ 

RETURN 
7 CARGAR RUTINA DE ORDENACION 
PRINT CLSS$ 

INPUT "NOMBRE DE LA RUTINA DE ORDENACION ”,PS 
CHAIN MERGE P$,100, ALL 
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10. PROGRAMA ORDENACION DE FECHAS 


En programas de gestión es frecuente la creación de archivos, en los cuales se va de- 
positando información, intimamente ligada a la fecha en la cual se produjo dicha in- 
formación. Dado que dichas fechas no tienen porque ser correlativas respecto a su 
introducción, cuando se han de manejar datos del fichero, este se encuentra desor- 
denado respecto a sus fechas. Con los métodos expuestos anteriormente pueden or- 
denarse números y textos (alfabéticamente), pero el caso que nos ocupa es de natu- 
raleza distinta. 


Si consideramos un formato de fecha muy extendido como es la introducción del 
día, mes y año con dos caracteres, en la forma 


DD/MM/AA 


puede observarse que un conjunto de fechas como 


1* 15/10/87 
2* 12/09/83 
3* 01/12/85 
4* 02/02/87 


y aplicando cualquiera de los métodos expuestos, se obtendría el conjunto ordenado 
(de menor a mayor) 


1? 01/12/85 
2? 02/02/87 
3* 12/09/83 
4* 15/10/87 


mal ordenados 


bien ordenados 


Las fechas 1* y 3*? están mal ordenadas puesto que eldía de la 1? es “01” y de la 2? 
**12”, el ordenador no sigue considerando el resto de los caracteres. En conclusión 
el método no es válido, es necesario buscar “algo”, que identifique de forma 
inequívoca a cada fecha y que sea comparable por el ordenador a efectos de ordena- 
ción. 


Existen varios algoritmos matemáticos que permiten transformar fechas en números 
que las identifican, entre ellos el calculo del “código de fecha””, mediante la expre- 
sión. 


C = INT (365.25*A2) + INT (30.56*M) + D + N 


donde 


A2 = dos últimos dígitos del año (p.e. 1987; A2 = 87) 
M = número que identifica al mes (1 a 12) 
D = número del día (1 a 31) 
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N=0 (valor más general) 
N = SiM=1Ó6M=2 / N=2siel año es bisiesto 
(enero ofeb.) ) N=1siel año no es bisiesto 


De una fecha dada, con el formato descrito, los valores de A2, M y D son inme- 
diatos, por ejemplo 
15/09/75 
D=15 M=9 A2=75 
Si consideramos que dicha fecha estará almacenada como string (cadena), puede le- 
erse mediante una variable alfanumérica p.e. F$, es decir, F$ = “15/09/75”. 


La obtención de D, M y A2 se realiza fragmentando la cadena, y aplicando a las tres 
subcadenas resultantes la función VAL (peso en valor numérico). 


= VAL (RIGHTS (F$,2)) 
VAL (MIDS (F$,4,2)) 
VAL (LEFTS (F$,2)) 


A2 
M 
D 


solo queda pues calcular el valor de N que depende del mes y de que el año sea bisies- 
too no. 


Verificar si M=1 6 M=2, no presenta dificultades basta con un 


IFM=1ORM=2 -—Si,._N=162 (depende de que el año sea o no bisiesto) 
lno 
N=0 


La condición de bisiesto, es que A2 sea distinto de O y que además A2 sea divisible 
por 4. 


Si A2 es divisible por 4, se cumplirá 
A2/4 = INT (A2/4) 


Por tanto la condición de bisiesto puede escribirse en BASIC 


IFA2 < >0AND A2/4 = INT (A214) Si bisiesto 
l no 
no es bisiesto 


El valor de C así obtenido es único para cada fecha y menor cuanto menor es la 
fecha en el tiempo (más antigua), por tanto puede pues realizarse una ordenación 
sobre el conjunto de códigos y simultáneamente ordenar las fechas. 
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El siguiente programa, utiliza las expresiones utilizadas anteriormente y permite la 
ordenación de un número determinado de fechas (dado por INPUT). El método de 
ordenación utilizado es el más sencillo, intercambio, aunque puede utilizarse cual- 
quier otro cambiando las líneas 200 a 280. 


10 ” ORDENACION DE FECHAS C(INTERCAMBIO> 
20 7 Entrada de datos 

25 PRINT"Formato de fechas dd/mm/aa” 

26 PRINT "===========================” 

30 INPUT "Numero de datos ”,num DIM F$(num>,C(num) 
40 FOR k=1 TO num 

50 PRINT"fecha”;k, 

60 INPUT f$(k) 

70 NEXT k 

100 ” Calculo y almacenamiento de codigos 
110 FOR k=1 TO num 

120 FS=FS(K> 

130 GOSUB 500 

140 C(K>=C 

150 NEXT K 

200 ” Ordenacion de codigos y fechas (por intercambio) 
210 FOR I=1 TO num-1 

220 FOR J=1 TO num-1 

230 IF C(J><=C(J+1) THEN 270 

240 C=C(J> FS=F$(J)> 

250 C(J>=C(J+1)> FS(J)=F$(J+1) 

260 C(J+1>=C FS(J+1>)=FS 


270 NEXT J 

280 NEXT 1 

300 “ Salida de fechas ordenadas 
310 PRINT” FECHA Codigo” 
315 PRINT "-----==-=-==========--=-=-- ge 


320 FOR K=1 TO num 

330 PRINT F$(K)>,C(K) 

340 NEXT K 

350 END 

500 ” Calculo del codigo de dia 

510 d=VALCLEFTS(F$,2)>) 

520 m=VAL(MIDS(F$,4,2>)> 

530 a=VALC(RIGHTS(F$,2)) 

540 IF m=1 OR m=2 THEN GOSUB 570 ELSE n=0 
550 C=INT(365 25*ka>+INT(30 56km)+d+n 

560 RETURN 

570 IF a<>0 AND a/4=INT(a/4) THEN n=1 ELSE n=2 
580 RETURN 


Obsérvese como en los intercambios (líneas 240 a 260), a la vez que se ordenan los 
códigos (según su valor), se ordenan las fechas. Código y fecha del mismo índice van 
intimamente unidos. 


Si como es normal las fechas llevasen emparejados uno o varios datos, estos se 
intercambiarían también dentro de dichas líneas. Por ejemplo, cada fecha va unida 
a una cantidad y a un identificador de cargo o abono (D/H). Podía considerarse por 
el programa que existen 4 matrices (de una dimensión). 


C () códigos CAN ( )cantidades 
FS () fechas IDS () identificador cargo/abono 


Las líneas de transformación serían 
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240 C = C(J) : FS = FS(J): CAN = CAN(J) ; ID$ = IDS(J) 
250 C(J) = CU +1): FS() = FS(J+1) : CAN(J) = CAN + 1) : IDS(J) = IDSQ +1) 
260 ((J+ 1) = C: FS(J+1) = FS: CAN(J+1) = CAN : IDS(J +1) = ID$ 


siendo C, F$, CAN e ID, variables auxiliares para que el intercambio se realice 
dentro de las propias matrices. 


En la salida de resultados (300-340) se ha indicado además de la fecha su código, 
únicamente a título de ejemplo y comprobación. En el caso expuesto anteriormente 
se puede modificar la línea 330 en la forma 


330 PRINT FS(K), CAN(K), ID$(K), C(K) 


Lógicamente también habrá de modificarse convenientemente la cabecera, líneas 
310 y 315. 
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CAPITULO 4 
INTRODUCCION A LOS FICHEROS 


1. DEFINICION DE FICHERO 
2. TIPOS DE FICHERO 

* Secuenciales 

* Indexados 

* Acceso directo 


3. CONCEPTO DE REGISTRO Y CAMPO 
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4. Introducción a los ficheros 


1. DEFINICION DE FICHERO 


Siempre resulta arriesgado dar una definición, por ello me limitaré a indicar que un 
fichero es un conjunto de datos relacionados entre sí, generalmente almacenado en 
un soporte magnético, disco o cinta. También cabe definirlo como conjunto de 
fichas o registros de datos por analogía con los ficheros o clasificadores de todos 
conocidos. 


A cada fichero o conjunto de información se le asigna un nombre por el que será re- 
conocido, de forma que toda transmisión de datos entre la memoria del ordenador y 
el fichero, o viceversa, exige la referencia a dicho nombre. 


2. TIPOS DE FICHERO 


Pueden realizarse diversas clasificaciones de ficheros, según su contenido, tipo de 
acceso, tiempo de existencia, etc. 


Respecto a su contenido, los ficheros pueden clasificarse como: 
Numéricos (datos numéricos) 
Alfanuméricos (datos alfanuméricos, cadenas) 
Mixtos (datos numéricos y alfanuméricos) 


Por otro lado, los datos, sea cual sea su naturaleza, pueden guardarse de distinta 
forma, lo cual da origen a una nueva clasificación: 


Ficheros binarios 


Forma de | Ficheros hexadecimales 

almacenamiento : 

odias Ficheros octales 
Ficheros ASCII 


Los ficheros binarios son aquellos cuya información es guardada en números bina- 
rios, es decir, en base 2; por tanto, dicha información se compone únicamente de ce- 
ros y unos, que son los dígitos disponibles en este sistema de numeración. 


De igual forma, en los ficheros hexadecimales y octales la información está guarda- 
da en números de base 16 y 8, respectivamente. 


Los ficheros ASCII son aquéllos cuya información es guardada de acuerdo con un 
código estándar cuyas siglas corresponden al “American Standard Code for Infor- 
mation Interchange”? (Código Americano Normalizado para el Intercambio de In- 
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formación). Esta norma permite la codificación de caracteres —un total de 128 
signos— que puede ver en el manual de su ordenador. 


De acuerdo con la forma en que se accede a los datos, los ficheros pueden ser: 


* Secuenciales 
* Indexados 
* Aleatorios o de acceso directo 


Ficheros secuenciales 


Este tipo de ficheros va ligado íntimamente a la forma en que una cinta cassete guar- 
da la información. Los datos son almacenados uno tras otro ““secuencialmente” a 
medida que son introducidos. 


El principal inconveniente de este método de almacenamiento, reside en que la lectu- 
ra debe realizarse también secuencialmente; es decir, para leer un dato determinado, 
hay que leer antes todos los anteriores (como mínimo). 


No todo son inconvenientes, su sencillez es un punto a su favor, así como la posibili- 
dad de almacenar datos de muy diversa longitud, coexistiendo perfectamente en el 
fichero, cosa imposible en los de acceso directo. 


Ficheros indexados (acceso por claves) 


Permiten el acceso directo a un dato determinado, a través de un parámetro 
—indice— que permite la búsqueda al ordenador a través de una tabla de índices. Su 
gran ventaja es que la búsqueda puede ser referida a un determinado campo dentro 
de un registro (ver estos conceptos). 


Ficheros de acceso directo 


El acceso a un dato determinado es directo, entendiendo como dato un registro, no 
un campo. El ordenador, mediante un algoritmo, calcula la posición que ocupa en el 
disco el dato indicado, que lleva un parámetro para indicar el número de orden 
dentro del conjunto de datos. 


Atendiendo al tiempo de existencia de los ficheros, pueden clasificarse, no exhausti- 
vamente, entre tres grandes grupos: 


Transitorios (corto plazo) 
Temporales (medio plazo) 
Fijos (largo plazo) 
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Los ficheros transitorios son aquellos cuya vida es muy corta. Generalmente duran 
sólo el tiempo en que están sujetos a modificación o creación, consolidándose poste- 
riormente como temporales. 


Los temporales, que son la inmensa mayoría, son ficheros dinámicos sujetos a con- 
tinuas variaciones (actualización). Por último los fijos, son aquellos que aún siendo 
susceptibles de modificaciones, éstas no son frecuentes, por lo que en un plazo me- 
dio pueden considerarse inalterables. 


3. CONCEPTO DE REGISTRO Y CAMPO 


Observando la figura que simula una ficha convencional de un fichero de alumnos, 
se desprende que para cada alumno existen una serie de epigrafes ubicados de una 
forma fija, que una vez completados constituyen los datos del mismo. 


COLEGIO XXX 


Alumno 





Domicilio 
Edad 








Curso 





Pues bien, si por analogía, entendemos que un fichero físico es igual a uno informá- 
tico, donde únicamente varía la forma de almacenar la información, el concepto de 
““ficha”” se correspondería con el de ““registro”” y cada uno de los ““epígrafes”” de la 
ficha sería un “campo”. 


Tipo de 
Fichero físico Fichero informático información 
Ficha Registro Varios datos 
Epígrafe Campo Un solo dato 


Es decir, volviendo al ejemplo, la ficha del alumno XXX sería un registro del fiche- 
ro, mientras que el nombre del alumno será el primer campo de ese registro. 


La información de una ficha quedaría almacenada en un fichero en la forma que in- 
dica la figura, puesto que ésta es depositada linealmente en el soporte de archivo 


(disco). 
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Campo 1 Campo 2 Campo 3 Campo 4 Campo 5 


El rem vomito | Emó [1% [cmo |] 
-íÁOAAAA«A«A«A<A<A<A<<<+=—2 


Registro N* n 


Un registro puede contener uno o más campos, al igual que un fichero puede conte- 
ner uno o más registros, lo habitual es obviamente, ficheros conteniendo varios re- 
gistros y a su vez, varios campos. 


En los capítulos siguientes se verán en profundidad los conceptos expuestos hasta 
ahora. 
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CAPITULO 5 
FICHEROS SECUENCIALES 


. INTRODUCCION 

. APERTURA Y CIERRE DE FICHEROS 
. LECTURA Y ESCRITURA 

. FINAL DE FICHERO 

. TIPOS DE LECTURA 

. TIPOS DE ESCRITURA 

. EXISTENCIA DE UN FICHERO 


. EJEMPLO PRACTICO 1 


Gestión de bibliotecas 


. EJEMPLO PRACTICO 2 


Juego educativo de preguntas y respuestas 
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5. Ficheros secuenciales 


1. INTRODUCCION 


Como se indicó en el capítulo anterior, en este tipo de ficheros la información es al- 
macenada de forma “secuencial”, es decir, los datos se guardan uno a continuación 
de otro, en la misma forma, en que se encuentran en una lista. Su principal inconve- 
niente consiste en que el acceso a un dato no es directo, sino que deben leerse pre- 
viamente todos los anteriores hasta llegar el indicado. Es como si en una casete de 
música, se deseará buscar una determinada palabra, para ello debe escucharse dicha 
cinta desde el principio. 


A pesar de que este inconveniente los invalida para ciertos trabajos, su sencillez de 
creación y manejo y su cierto grado de analogía con las matrices, les hace especial- 
mente indicados en muchos casos. 


2. APERTURA Y CIERRE DE FICHEROS 


Existen dos conceptos fundamentales en el manejo de ficheros, aplicables también a 
los secuenciales 


1% Abrir el fichero 
2* Cerrar el fichero 


Antes de manipular un fichero, es necesario proceder a su apertura, esta apertura 
puede realizarse con dos objetivos: lectura o escritura, es decir, puede abrirse un 
fichero con el fin de leer datos contenidos en él, o bien, abrirlo para introducir da- 
tos. 


Aparentemente esta diferencia puede parecer un tanto artificiosa, bastaría simple- 
mente con abrirlo, sin especificar que operación se va a realizar con él, pero hay que 
tener en cuenta que la apertura para escribir lleva implícita la creación del propio 
fichero si este no existe en el disco, mientras que la apertura para leer se realiza for- 
zosamente sobre un fichero existente. 
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Para escribir [ Creación del fichero si no existe 
Abrir un fichero 
Para leer f El fichero debe existir 


En cuanto al cierre no existe la dualidad anterior, puesto que para cerrar un fichero 
es necesario que este exista. Unicamente cabe distinguir el caso de la existencia de 
varios ficheros abiertos simultáneamente, lo cual daría origen a una discriminación 
en el cierre, es decir, puede cerrarse uno u otro en particular o todos en general. 


Cerrar uno determinado 
Cerrar un fichero 
Cerrar todos 


Vamos a ver como se articulan desde el Mallard BASIC todos estos conceptos. 
* Abrir un fichero 
Un fichero es una estructura de datos, cerrada, dotada de una única puerta de acce- 


so y con un final físico o fondo de saco. 


La apertura de la puerta de acceso a un fichero se realiza mediante una clave, dicha 
clave se denomina “Nombre del fichero””, por lo que cualquier referencia al mismo, 
debe hacerse por dicho nombre. 


La forma general de apertura de ficheros secuenciales es: 
OPEN modo, n* de fichero, nombre 


donde 


— Modo. Es el literal “O” 6 “*I”” que especifica el destino de la apertura, para escri- 
bir o leer respectivamente. 


“*O”” (output) Abrir para escribir 
“*I”” (input) Abrir para leer 


— N' de fichero. Puesto que pueden existir varios ficheros abiertos simultáneamen- 
te es necesario identificar cada uno con un número, por el cual será reconocido 
en lo sucesivo. 


— Nombre. Es la palabra clave que identifica al fichero en el disco. El nombre se 
puede dar en dos formas 


literal_____________ p.e “DATOSI1” 
variable alfanumérica _______. p.e. F$ donde F$ contiene el nombre 
del fichero 


nombre 


La máxima longitud de un nombre es 8 caracteres más 3 opcionales separados por 
un punto, al igual que los nombres de programas. 
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Observe que cada fichero lleva dos identificadores: Nombre y número; el nombre lo 
identifica dentro del disco (directorio) y el número lo hace dentro del programa. 


Ejemplos: En un programa se necesitan realizar las siguientes operaciones de aper- 
tura. 


1) Abrir fichero SALARIOS para escribir 
2) Abrir fichero HORAS para escribir 
3) Abrir fichero NOMBRES para leer 


Las órdenes serían sucesivamente. 


OPEN “*0”, 1, “SALARIOS” (ver nota 3) 
OPEN **0”, 2, “HORAS”” 
OPEN “*I”, 3, “NOMBRES” 


Notas: 


1? Si se abre un fichero para leer, es necesario que este exista en el disco en curso, en 
caso contrario se producirá un error. 

2? Si se abre un fichero para escribir y este no existe, es creado de forma automática. 

3* Si se abre un fichero para escribir y este existe, es borrado automáticamente para 
crear uno nuevo con el mismo nombre. 

4* En principio sólo pueden abrirse 3 ficheros simultáneamente. 


* Cerrar un fichero 


El cierre de un fichero presupone, al menos de momento, que no se van a realizar 
más operaciones de lectura/escritura sobre él. 


La forma general es 
CLOSE Lista de : n* de fichero 


La simplicidad de la orden es obvia, si cada fichero se identifica en la apertura con 
un número, basta con referenciar dicho número. El cierre es independiente del tipo 
de operación I/O. 


En la ejecución de esta orden deben tenerse en cuenta las siguientes cuestiones. 


1?) Si se omite la lista de números de ficheros, se produce el cierre de todos los que 
estuvieran abiertos 


CLOSE Cierra todos los ficheros 


22) Si se cierra un fichero que se abrió para escritura (*“0””), se grabarán todos los 
datos contenidos en el tampón de salida y posteriormente el cierre propiamente 
dicho. Tenga en cuenta que los datos no se graban uno a uno, a medida que se pro- 
ducen las órdenes de escritura, sino por bloques, con el fin de minimizar el número 
de accesos al disco. 
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3%) Si el número de fichero indicado en CLOSE no estaba asignado previamente por 
una orden de lectura, dicho número es ignorado 


3. LECTURA Y ESCRITURA 


Dos son las operaciones que pueden realizarse sobre un fichero, la lectura de datos 
existentes en el mismo o la escritura de datos en él, ambas operaciones se reflejan en 
órdenes distintas. 


* Lectura de datos de un fichero 


La operación de lectura se realiza con la palabra INPUT, al igual que la lectura des- 
de el teclado, seguida del indicador +, propio de disco. 


Su forma general es: 


INPUT 4 n* de fichero, lista de : variable 


NOTA La nomenclatura Lista de variable indica que en ese lugar puede incluirse una variable o varias 
separadas por comas Ejemplo INPUT + 1, A,Z, X (1 es el numero del fichero y A, Z y X la lista de va- 
riables) 


El número de fichero es que le identifica y corresponde al dado en la orden OPEN. 
La lista de variables son aquellas variables en las que se almacenarán los datos 
leidos, dicha lista puede estar constituida por una sola variable o varias y el tipo de 
variable corresponderá al tipo de dato a leer (número entero, real o cadena). 


En el caso de tener que leer una línea completa de un fichero debe usarse LINE 
INPUT +, en vez de INPUT +. Tenga en cuenta que LINE INPUT tanto en teclado 
como en fichero admite leer comas dentro de las cadenas, sin ser interpretadas como 
separadores de datos, sino como parte del texto. 


Como veremos más adelante las variables más utilizadas para leer gran cantidad de 
datos de un fichero, son las indexadas (matrices) por su capacidad de almacena- 
miento y fácil manipulación mediante bucles FOR 6 WHILE así como por su 
analogía con los propios ficheros secuenciales. 


* Escritura de datos en un fichero 


La operación de escritura viene regida por la orden WRITE 4 y su forma general es 
la misma que la de lectura, a fin de compatibilizar ambas operaciones. 


WRITE f n? de fichero, lista de : variable ó expresión 
Si se utiliza la opción “variable” se guarda el contenido de la variable. Si se utiliza 


“expresión” se guardará el resultado de dicha expresión. Por ejemplo si trabajamos 
con cadenas el mismo efecto producirían las 2 líneas siguientes 
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A$ = “HOLA” : WRITE +1, A$ (variable) 
WRITE +1, “HOLA” (expresión) 


También puede utilizarse la orden PRINTF con el mismo formato, pero existen al- 
gunas diferencias: la orden WRITE + ignora las “*zonas”” de escritura (pantalla), 
escribe las cadenas entre comillas, separa los elementos por comas, el separador fi- 
nal de la orden no produce efecto en la grabación. En principio use solo esta última. 


4. FINAL DE FICHERO 


La función EOF permite conocer en cada momento el proceso de lectura de un 
fichero, si no se ha alcanzado el final devuelve el valor cero (0), mientras que si se ha 
llegado al agotamiento de los datos, genera el valor menos uno (—1). 








Valor de 
EOF Significado Comentario 
—1 verdadero Se ha alcanzado el final 
del fichero 
0 falso No se ha alcanzado su 


final 


Esta señal como veremos a continuación permite la lectura completa de un fichero 
del que se desconoce el número de elementos que lo componen. 


5. TIPOS DE LECTURA 


Son varias las estructuras o rutinas de lectura de datos de un fichero. Dependiendo 
del conocimiento sobre el número de datos que contiene; podemos encontrarnos en 
tres casos. 


N?* datos conocidos 
Tipos de lectura N* datos contenido en el propio fichero 

N* datos desconocido 
Cada uno de estos casos puede resolverse por aplicación de distintas rutinas basadas 
en distintos tipos de bucles, FOR, WHILE o contador + IF. 


A continuación se exponen varias rutinas de lectura que abarcan algunas de las 
muchas posibles soluciones. 


* Número datos conocido. Bucle FOR 


Esta rutina está preparada para leer el fichero “DATOS”, que contiene 30 elemen- 
tos o más, todos ellos numéricos (enteros o reales). Si el fichero contiene menos de 
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30 elementos se producirá un error de lectura tipificado como EOF met in 60 indi- 
cando que se ha alcanzado el final del fichero. 


10 ' RUTINA DE LECTURA FOR, NUM, DATOS CONOCIDO (LETO 
MA A E a nd dra le aca 
20 N=30:DIM X(N) 

30 PRINT "Lectura de 30 Datos del fichero ¿DATOS>" 

40 OFEN "1",1,“datos" 

50 FOR K=1 TON 

E0 INFUT fl, XCKI)¡PRINT X(K) 

70 NEXT K 

B0 CLOSE 

90 PFRINT "Lectura terminada" 


El bucle FOR de la línea 40 se extiende al valor 1 y al valor N (30), que es el número 
de datos del fichero. La rutina presupone el conocimiento previo de N y del nombre 
del fichero, por tanto posee un alto grado de rigidez y especialización. A fin de gene- 
ralizar el caso, podía modificarse en la forma siguiente. 


10 ' RUTINA DE LECTURA FOR, NUM, DATOS CONOCIDO CINPUT) 
VE adas SL a 
20 INPUT "Nombre del fichero "¡FS 

30 INPUT "Numero de datos del fichero";N 

40 DIM X(N) 

So OPEN "1",1,FS$ 

60 FOR Kz=l TO N 

70 INPUT h1l,X(K>:PRINT XCK) 

80 NEXT K 

90 CLOSE 

100 PRINT "Lectura terminada" 


De esta forma queda variable el fichero y el número de datos a leer. 


Obviamente la utilización de cualquier rutina de lectura está condicionada a la exis- 
tencia del fichero de datos en el disco (ver epígrafe «Tipos de escritura»). 


Nota: El símbolo Pt que aparece en los listados corresponde a +. 
* Número de datos conocidos. Bucle contador 


Aunque la estructura FOR es cómoda, puede sustituirse también por un contador 
controlado por un IF, es decir, los programas que exponemos a continuación son 
equivalentes. 


10 FOR K=1 TO 100 
20 PRINT K 

30 NEXT K 

40 END 
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10 K=1 

20 PRINT K 

30 K=K+1: “Contador 
40 IF K>100 THEN END 
50 GOTO 20 


Ambos programas, como puede comprobar, escriben los números del 1 al 100. 


Basados en esta idea, puede construirse una rutina similar a la anterior (FS2), cam- 
biando las líneas 60 en adelante en la forma. 


10 ' RUTINA LECTURA EUCLE CONTADOR, NUM, DATOS CONOCIDO «INPUT 
A o O O nt A a 
¿O 1INFUT "Nombre del fichero "¡FS 

“0 INFUT "Numero de datos del fichero";¡N 

40 DIM X(N) 

50 CON=1 

E0 OPEN "1",1,F% 

70 IF CON > N THEN 110 

30 INPUT Rl,X(CON):FRINT "Dato No, ";CON;XCCCN) 

30 CON=CON+1 

100 GOTO 70 

110 CLOSE 

120 FRINT "Lectura terminada" 


* Número de datos contenido en el propio fichero 


Es costumbre muy útil el grabar en un fichero secuencial, el número de datos que 
contiene en primer lugar, de forma que esta información puede ser recogida por el 
proceso de lectura, automatizando dicho proceso. 


El método a utilizar puede ser cualquiera de los dos descritos, contador o bucle 
FOR, e incluso un bucle WHILE, aunque reservamos este último para ficheros con 
el número de datos desconocido, por ser el más idóneo. 


Una rutina construida con FOR podía ser: 


10 * RUTINA LECTURA BUCLE FOR, NUM, DATOS EN FICHERO 
MA a a dl e ESA iii EE NN NE 
20 INFUT "Nombre del fichero "¡F% 

30 OPEN "1",1,FS$ 

40 INPUT A1,N:¡DIM X(N) 

50 FOR k=1 TON 

60 INPUT Rh1,XCK>:PRINT "Dato No, "¡k;X(K) 

70 NEXT K 

30 CLOSE 

390 PRINT "Lectura terminada" 
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Dejamos en manos del lector la aplicación de un contador controlado por IF, como 
variante a esta rutina. 


* Número de datos desconocido. Bucle WHILE-WEND 


En el apartado 4, de este capítulo, nos hemos referido a la función EOF, pues bien, 
aprovechando las características de los bucles WHILE; cuyo número de vueltas no 
es fijo como ocurre con FOR, sino que permanece el bucle mientras se de una deter- 
minada condición, se puede elaborar una rutina de lectura, apoyada además en la 
señal EOF de fin de fichero. Veamos un ejemplo al efecto. 


10 ' RUTINA LECTURA BUCLE WHILE, NUM, DATOS DESCONOCIDO 
O E o A SON DUO NAO 
20 INPUT "Nombre del fichero ";F% 

30 DIM X(100);K= 

40 OFEN "1",1,F$ 

50 WHILE NOT EOFC1> 

60 INFUT Rl,XCK>:PRINT"Dato No, "¡k;X(K) 

70 K=k+1 

30 WEND 

390 CLOSE 

100 PRINT "Lectura terminada" 


La indeterminación del número de datos obliga a sobredimensionar la matriz que re- 
cibe los datos del fichero, en el ejemplo se supone que el número de datos no es ma- 
yor de 100. 


Observe como se utiliza dentro del bucle WHILE el operador lógico NOT, junto a la 
señal EOF de final de fichero que lleva entre paréntesis el número de identificación 
del fichero, que corresponde al dado por la orden OPEN. 


El conjunto de líneas 50 a 80 podría traducirse por: «Mientras no encuentres la señal 
de fin de fichero, lee datos, almacénalos en la matriz X( ), e imprímelos en 
pantalla». 


Desde luego podía utilizarse EOF con otra estructura de bucle, como se hizo ante- 
riormente, por ejemplo utilizando FOR sería 


10 ' RUTINA LECTURA BUCLE FOR, NUM, DATOS DESCONOCIDO 
SAA a mo AA a RI AAA 
20 INFUT "Nombre del fichero "¡FS 

30 DIM X(100) 

40 OPEN "1",1,F$ 

50 FOR k=1 TO 100 

£0 INFUT Rkl,XC(K>:FRINT"Dato No, "¡k;Xck) 

70 1F EOFC(1)> THEN 390 

0 NEXT k 

390 CLOSE 

100 PRINT "Lectura terminada" 
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* Lectura de un solo dato 


Hasta el momento, en todos los casos expuestos, la operación de lectura se ha exten- 
dido a todo el fichero, cargándose los datos contenidos en él, en una matriz. Si se 
necesita leer un dato concreto y almacenar todo el fichero,,la condición impuesta 
por la propia naturaleza de los ficheros secuenciales, es que han de leerse todos los 
datos, entre el primero y el buscado. 


Veamos una rutina preparada para leer un determinado dato, bajo la premisa de co- 
nocer el número de orden que tiene en el fichero. 


10 ' RUTINA LECTURA DE UN DATO 

WM A A E E 

20 INPUT "Nombre del fichero "¡FS 

30 INPUT "Numero de orden del dato a leer";N 

40 OPEN "I1",1,FS 

50 FOR k=1 TO N 

£0 INPUT Rh1,AS$ 

70 NEXT + 

0 CLOSE 

30 FRINT "El dato No,"¡;N;" del fichero "¡F$;" es "¡A$ 


Si no se conociese el número de orden, sino algún atributo, podía establecerse una 
búsqueda por igualdad o inclusión, en la misma forma en que se realizaba en las 
matrices. Si no existe la certeza de que el dato buscado exista, conviene utilizar un 
control de fin de fichero, bien del tipo WHILE NOT EOF, o simplemente con un IF 
EOF, tal como se utiliza en las rutinas FSS y FS6 respectivamente. 


6. TIPOS DE ESCRITURA (grabación) 


Dado que esta operación es la contraria de la lectura, es correcto suponer que los 
distintos tipos vistos anteriormente, son también aplicables, con las variaciones 
oportunas. 


Si partimos del supuesto de que el número de datos a grabar es conocido puede pre- 
pararse una rutina, cuya primera operación de escritura sea precisamente de guardar 
este número. Suponiendo que los datos a guardar estén contenidos en la matriz A, 
que el número de datos es N y la dimensión de A es también Ny tenemos 


10 ' RUTINA DE GRABACION 
(a OS ao 

20 INPUT "NOMBRE DEL FICHERO";F% 
30 OPEN "0",1,Fs 

40 WRITE h1,N 
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50 FOR h=1 TO N 

EO — WRITE R1,Ack) 

7O NEXT K 

0. CLOSE 

30 FRINPF"Grabacion terminada" 


Esta rutina realiza un volcado total de la matriz A, en el fichero F$. Ahora bien, en 
muchas ocasiones, por ejemplo en un programa de agenda, se prepara una matriz de 
datos grande, muy superior al número de datos actual, en previsión de futuras 
ampliaciones. Si la grabación se realiza tomando como límite el de dimensión de la 
matriz, resultará que además de la información normal, es almacenada un montón 
de datos vacios, todos aquellos elementos no asignados por programa y que con- 
tienen el vacio por efecto del dimensionamiento (DIM). 


Con el fin de almacenar únicamente los datos significativos puede introducirse un IF 
para detectar la primera cadena vacía e interrumpir el proceso de grabación. 


La rutina modificada sería: 


100 ' RUTINA DE GRAEACION PARCIAL DE UNA MATRIZ 
A e a Porra aaa 
120  INFÚUT "NOMBRE DEL FICHERO":Fs 

130 OPEN "0",1,F$ 

140 FOR K=1 TO 100 

150 IF A$Ck="" THEN 170 ELSE WRITE bl, ASK) 
160 NEXT K 

170 CLOSE 

150 PRINT "Grabacion terminada" 


El supuesto de esta rutina es una matriz A$, dimensionada previamente como DIM 
AS(100) y cargada parcialmente de datos. 


La carga de datos de la matriz puede realizarse por cualquiera de los métodos ex- 
puestos en el capítulo 2 (matrices), por ejemplo añada esta rutina a la anterior para 
su funcionamiento conjunto. 


IG * CARGA DE DATOS EN LA MATRIZ 
TS a LO ta 
¿20 DIM A$(100) 

30 FOR k=1 TO 100 

40 FRINT"Dato";¡K; 

50 INFUT A$Ck> 

60 IF astk3="" THEN £0 


70 NEXT k 
S0 PRINT"Carga terminada" 
390 FRINT"La rutina F39 procedara a la grabacion" 


Si se utiliza una carga como la descrita podía aprovecharse el valor de la variable K 
del bucle como número de datos introducidos, observe que de la 60 se sale con un 
valor K igual al número de datos mas 1 (K = N + 1), por tanto la rutina FS8 podía 
modificarse en su línea 140 y 170 en la forma. 


140 FOR N = 1 TO K—1 
170 NEXT N 


y suprimirse la 150 pues resulta ya innecesaria. 


A pesar de lo dicho, el método utilizado en FS9 resulta muy eficaz en programas 
más complejos, en los que continuas modificaciones del fichero hagan digícil llevar 
la cuenta del número de datos. 


En el caso de datos numéricos, la condición “nada” (?”””), debe cambiarse por cero 
(0), siempre y cuando este número no pertenezca a la lista como valor posible. En 
caso contrario debe utilizarse un valor singular, por ejemplo —1, —9999, etc., sobre 
el que tengamos la certeza de su no existencia, e introducirlo como último valor de la 
lista. 


La estructura WHILE también es válida para la grabación de datos. En el caso co- 
mentado anteriormente de matrices grandes con datos incompletos, puede estable- 
cerse el bucle en la siguiente forma. 


WHILE AS(K) <> ”” (cadenas) 
WHILE A(K) > 0 (números) 


De esta forma mientras se mantiene la condición los datos serán transferidos al dis- 
co. El control se produce en el primer caso por la aparición de la cadena vacía y en el 
segundo por un número negativo o cero. 


7. EXISTENCIA DE UN FICHERO 


En todas las rutinas expuestas se hace referencia a un fichero, pero puede ocurrir 
que dicho fichero no exista en el disco por muy diversas razones: no es el disco apro- 
piado, no se ha tecleado bien el nombre, etc. Todo ello conduce a un mensaje de 
error «File not found» (fichero no encontrado). 


Con el fin de asegurar que el fichero de referencia existe, se dispone de la orden 


FINDS, válida para cualquier tipo de fichero. Puede probarla incluso como coman- 
do directo, teclee 
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PRINT FINDS (*“nombre.tip””) 


si el fichero tipificado existe devuelve precisamente su nombre. En la tipificación del 
fichero pueden incluirse comodines (? *). 


Su mayor utilidad viene dada en una aplicación conjunta con IF, veamos por 
ejemplo como se usaría en la rutina FS7, para ello sólo vamos a introducir una 
nueva línea, la 35. 


10 ' RUTINA LECTURA DE UN DATO 

VS MOD A AE 

20 INFUT "Nombre del fichero "¡FS 

30 INPUT "Numero de orden del dato a leer";N 

35 1F FINDSC(F$><>"" THEN 40 ELSE PRINT"El fichero “¡F$; 
“ono existe" ¡GOTO 20 


40 OPEN "1",1,F%$ 

50 FOR k=1 TO N 

€0 INPUT h1,A%$ 

70 NEXT k 

£0 CLOSE 

390 PRINT "El dato No,";N;" del fichero ";F$;" es ";¡A$ 


8. EJEMPLO PRACTICO 1. Gestión de biblioteca 


El programa “Gestión de biblioteca”? se incluye como ejemplo práctico completo, 
del manejo de ficheros secuenciales. El objetivo propuesto no es el de construir una 
compleja base de datos, sino exponer de forma didáctica el esquema básico de una 
gestión de este tipo de ficheros, por todo ello se ha descuidado, deliberadamente to- 
do lo relativo a una buena presentación, eficaz gestión de menus, etc., buscando en 
su brevedad, la mejor comprensión de las diversas rutinas que lo componen. Una 
buena labor por parte del lector sería el perfeccionamiento del programa y adapta- 
ción a sus necesidades. 


Por su mejor seguimiento, se incluye el organigrama básico del programa y una bre- 
ve descripción de cada una de las rutinas que la componen. 


Organigrama General 


El programa general se compone de un pequeño programa ““principal”” que incluye 
el dimensionamiento de la matriz de datos y el “Menú” directorio, del que depen- 
den cinco subrutinas operativas, organizadas en la siguiente forma 
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1000 








Lectura de 
ficheros 






1100 


2000 








Introducción 
de fichas 





2110 






10 Programa Principal 3000 


(MENU) 





Modificación 
















240 de fichas 
3120 
4000 
Búsqueda de 
fichas (submenu) 
4070 
5000 
Grabación del 
fichero 
5090 
4100 
1 
a Por N' de ficha . 
Por titulo £ 
Busqueda de = 
fichas (submenu) Búsqueda E 
a 
Por Autor E 


4400 


Por materia 


ORGANIGRAMA BASICO DEL PGM.BIBLIO 
— Flujo principal (los retornos se realizan en sentido contrario) 
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— Bases de partida. El programa se ha concebido con capacidad de gestionar una 
biblioteca con un máximo de 100 volúmenes, impuesto por el dimensionamiento de 
la matriz L$ en la línea 50 y tres conceptos (campos): título, autor, materia. Eviden- 
temente estos parámetros pueden ampliarse para ajustarlos a las necesidades reales, 
el número de libros puede ampliarse modificando el valor 100 y el de conceptos tam- 
bién, aunque esto último obliga a modificar las rutinas ampliándolas en el número 
de conceptos nuevos introducidos. 


Las características de los ficheros secuenciales, permite que el número de caracteres 
de cada concepto (campo) sea variable. 


— Descripción 


— Programa principal 


La línea 50 establece una matriz, dimensionada de acuerdo con las bases de partida 
expuestas, utilizando la orden OPTION BASE 1 con el fin de utilizar como primer 
índice de la matriz, el uno. Debe tenerse en cuenta que el primer índice de la matriz 
es precisamente el que identifica el número de ficha (registro). 


La línea 60 define CLS$ como una cadena que incluye las órdenes de borrado de 
pantalla y cursor al origen, que será empleada posteriormente, mediante PRINT. 


Las líneas 100 - 200 constituyen el Menú principal de opciones, sobre el que puede 
actuarse, como se comentó anteriormente, a fin de mejorar si se desea su forma de 
presentación. 


La línea 205 y 210 permiten el direccionamiento a las distintas subrutinas, indicadas 
en el organigrama anterior y que se describen a continuación. 


— Opción Y. Fin de programa 


Está constituida por sólo dos líneas 230 y 240, cuya única misión es borrar la pan- 
talla y finalizar el programa. Antes de utilizar esta opción, si se han realizado modi- 
ficaciones de las fichas o aumento, debe procederse a la grabación del fichero. 


Si desea la automatización del proceso de cierre puede incluirse una línea 235 
GOSUB 5000, de esta forma, el fin de programa producirá una grabación actualiza- 
da de datos. 


— Rutina 1. Lectura de ficheros. 


La línea 1010 realiza una puesta a cero del contador de fichas (K) y de la matriz (L$), 
ello permite trabajar con varios ficheros, sin que la información sea mezclada. 


El bucle 1040-1070 de lectura se ha estructurado mediante un WHILE en la forma 
de detención por final de fichero, explicada anteriormente, la variable K (línea 1050) 
es la encargada de contabilizar el número de fichas leidas. 


El segundo subíndice de la matriz corresponde a: 
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Ficha N* = K 


Título Ls(K, 1) 
Autor L5$(K,2) 
Materia L5(K, 3) 


La línea 1090 produce una pausa hasta tanto no se presione RETURN, INTRO ó 
ENTER, según el modelo de ordenador. Posteriormente se devuelve el control por 
la 1100 al programa principal (vuelta al menú) 


— Rutina 2. Introducir fichas 


La línea 2020 incrementa el contador de fichas. Tras la introducción de los datos, 
líneas 2030-2050, se produce un ““control de bondad”” de los mismos, en caso de ser 
válidos, se ofrece la posibilidad de introducir más fichas, sin tener que pasar por el 
menú, esta opción es muy útil durante el proceso de creación del banco de datos. 


Los controles de bondad y de introducción de nuevos ficheros, utilizan la función 
UPPERS, con el fin de corregir la diferencia entre letras mayúsculas y minúsculas, 
que podía dar lugar a errores de interpretación. 


— Rutina 3. Modificación de fichas. 


Esta rutina se ha elaborado en forma muy simple. Solicita el número de ficha a mo- 
dificar (3020), imprime los datos actuales (3040) y solicita los nuevos. Observe que 
han de introducirse los tres datos de forma obligada, una mejora consistiría en posi- 
bilitar la corrección de un dato determinado, sin obligar a teclear todos forzosamen- 
te, esto puede ser un buen ejercicio para el lector interesado. 


— Rutina 4. Búsqueda de fichas. 


Esta rutina da origen a 4 subrutinas (ver organigrama básico), cada una de ellas es- 
pecializada por tipo de búsqueda (campos) y otra común a todas ellas, que es en re- 
alidad la estructura encargada de la localización y presentación de la ficha buscada. 


Las líneas 4010 a 4050 presentan un menú de búsqueda, para él cabe lo dicho ante- 
riormente para el principal, en cuanto a presentación. 


La 4060 se encarga del direccionamiento y 4070 del retorno al menú principal. 
Rutina 4-1. Búsqueda por número de ficha. 


Es evidentemente el caso más sencillo, conocido el número de ficha, basta con 
imprimir los tres elementos de la matriz correspondiente. La línea 4110 controla la 
existencia de la ficha buscada, si el número (NF) es superior a (K) implica que la 
ficha como tal no existe, o lo que es lo mismo, dicha ficha está vacía. 


Se ha añadido la posibilidad de ver todas las fichas seleccionando esta opción y bus- 
cando la ficha número cero, que evidentemente no existe pero que sirve como indi- 
cador. Para ello se establece un bucle de búsqueda entre los límites “*prin”” y “*fin”” 
cuyos valores serán iguales si se busca una sola ficha o valdrán 1 y K respectivamen- 
te si se desa ver todo el fichero. 
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Rutina 4-2. Búsqueda por Título. 


En realidad tanto esta como las dos posteriores se encargan únicamente de estable- 
cer el código del campo de búsqueda (1 a 3), es decir, el elemento de la matriz por el 
que se busca (segundo índice) y la cadena buscada, resolviéndose por la rutina 4.5 la 
búsqueda propiamente dicha. 


Rutina 4-5. Rutina general de búsqueda. 


Entre los límites 1 y K, establecidos por el bucle 4510-4530, se realiza la búsqueda 
del dato propuesto, utilizando el método de “inclusión”? como recordará por el 
capítulo de matrices, este método es mejor que el de la ““igualdad””, ya que permite 
buscar por la cadena completa o simplemente por una subcadena contenida. Por 
ejemplo, si queremos ver los libros de un determinado autor, del que recordamos su 
apellido pero no el nombre completo, la función INSTR permite su localización, 
mientras que con el operador de relación (=>) esto no sería posible. 


Recuerde que la forma general de INSTR es: 
INSTR (cadena en la que se busca, subcadena buscada) 


y que devuelve el ordinal del primer carácter coincidente de la subcadena, por tanto 
si vale cero (0), no está contenido y si es distinto de cero si, de esta función se encar- 
ga la línea 4520. dá 


Como la impresión de datos, 4560-4620 está organizada como otra subrutina, per- 
mite una búsqueda contínua extendida a todo el fichero, aún cuando se haya en- 
contrado una ficha que responda a la condición previa, ello resulta necesario pues 
permite de esta forma listar por ejemplo todos los libros de la materia Informática y 
no sólo el primero de ellos. 


Rutina 5. Grabación de datos. 


Es la operación contraria a la lectura y por tanto de análoga estructura. La apertura 
es del tipo **O””, output, hacia afuera (5020) y la operación de escritura viene dada 
por WRITE (5040), al igual que la lectura se hacía mediante INPUT. 


Observe que tanto la operación de lectura como de escritura, finaliza con el cierre 
del fichero (1080 y 5070). 


190 7 AA Odo loldolalololdolaak GESTION DE BIBLIOTECA AMOROSOS OOOO lofojooK 
20. 7 ARMAR folololdolaolookk Fichero secuencial AMOO OOOO lolo lojojoK 
30 RRE SOS OOOO OK ”BIBLIO” AMOO OOOO OOOO KK 
40 * 

50 OPTION BASE 1 DIM L$(100,3> 

60 CLS$=CHR$ (27)+”E”+CHR$(27)+”H” 
100 “ ,, e A 
110 PRINT CLS$ 

120 PRINT TAB (22)"”M E N U” 
130 PRINT TAB (22)”==========” 
140 C=20:'PRINT:PRINT TAB(C>”1.LEER FICHERO” 
150 PRINT:PRINT TAB(C>”2 Introducir ficha” 
160 PRINT.PRINT TAB(C>”"3 Modificar ficha” 
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PRINT:PRINT TAB(C>”4.Buscar ficha” 
PRINT;:PRINT TAB(C>”"5.GRABAR FICHERO” 
PRINT:PRINT TAB(C>”O0. E O 1d 

PRINT: PRINT: INPUT "SELECCIONAR OPCION ”,OP 
IF OP=0 THEN 230 

ON OP GOSUB 1000,2000,3000,4000,5000,230 


GOTO 110 
PRINT CLSS 
END 


to NA A AS a LEER FICHERO 
K=0: ERASE L$5:DIM L$(100,3)> 
PRINT CLSS$: INPUT 'NOMBRE DEL FICHERO ”;FS$ 


OPEN ”I”,1,FS 

WHILE NOT EOF(1)> 

K=K+1 

INPUT *1, L$(K,1>,L$(K,2>,L$(K, 3) 
WEND 

CLOSE 


INPUT "FICHERO CARGADO. PRESIONE <ENTER> PARA CONTINUAR”,Z$ 


RETURN 

E E EN AO INTRODUCIR” FICHAS 
PRINT cls$ 

K=K+1: PRINT"Ficha No.”;K 

INPUT "TICUTO cacas ”;LS(K, 1) 

INPUT "Autor .......... ”;LS(K, 2) 

INPUT "Materia ......... ";¡LS(K, 3) 


PRINT: INPUT '"DATOS CORRECTOS (S/N> ”;Z5$ 
IF UPPERS(Z$>="S' THEN 2090 

IF UPPERS(Z$>="N'" THEN 2020 

PRINT: INPUT "MAS FICHAS (S/N) ”;Z$ 

IF UPPERS(Z$>="S' THEN 2010 


IF UPPERS(Z$)="N' THEN RETURN ELSE 2090 
a a AS je a e dl MODIFICAR FICHAS 
PRINT CLS$ 
INPUT "NUMERO DE LA FICHA ”;N 
PRINT 
FOR J=1 TO 3:PRINT LS(N,J)>: NEXT 
PRINT: PRINT” INTRODUCIR NUEVOS DATOS” 
INPUT "Titulo .......... UE ALO 
INPUT "Autor ...... vo... ”;¡L$(N,2) 
INPUT "Materia .... .. ”¡LS(K,3) 


PRINT: INPUT 'DATOS CokkkcTOS (S/N> ";ZS 
IF UPPERS(Z$>="S” THEN 3120 
IF UPPER$(ZS>="”N'" THEN 3050 ELSE 3090 
RETURN 
NA A ns L.......... BUSCAR FICHAS 
PRINT CLSS: PRINT”1. Buscar por numero de ficha” 
PRINT"2. Buscar por Titulo” 
PRINT"3. Buscar por Autor” 
PRINT"4. Buscar por Materia” 
PRINT: INPUT "SELECCIONE OPCION ”;OP 
ON OP GOSUB 4105,4200,4300, 4400 
RETURN 
” Busqueda por numero de ficha 
INPUT "NUMERO DE FICHA (0 Para ver todas)”; NF 
IF NF>K THEN PRINT"NO EXISTE ESA FICHA (MAX="”;K;”>”:GOTO 4155 
IF NF=0 THEN prin=1:fin=k ELSE prin=nf: fin=nf 
FOR ficha=prin TO fin 


PRINT CLSS: PRINT"Ficha ”;ficha 
PRINT "Titulo ....! ”;¡LS(ficha, 1> 
PRINT "Autor ..... ";L$S(ficha,2) 
PRINT "Materia .... ”;¡L$(ficha,3) 
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4145 
alir 
4150 
4155 
4160 


4200 “7 


4210 
4220 
4230 


4300 “ 


4310 
4320 


PRINT PRINT PRINT: INPUT *”Presione <ENTER> para continuar o S+<ENTER> 
”,zs 

IF Z$=""” THEN NEXT ficha ELSE 4160 

INPUT "Presione <ENTER> para volver al me”.u”,Z$ 

RETURN 


Busqueda por Titulo 
INPUT "Titulo buscado ”,LBS 
COD=1 
GOTO 4500 

Busqueda por Autor 
INPUT "Autor buscado ”,LBS$ 
COD=2 


4330, GOTO 4500 


4400 ” 


4410 
4420 
4430 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 


Busqueda por Materia 

INPUT "Materia buscada ”,LB$ 

COD=3 

GOTO 4500 

” Rutina general de busqueda 

FOR J=1 TO K 

IF INSTR(LS(J,COD>,LB$><>0 JHEN GOSUB 4560 

NEXT J 

PRINT PRINT”NO' HAY MAS FICHAS” 

PRINT INPUT "Presione <ENTER> para continuar ”,z5$ 


PRINT CLS$ 

PRINT"Ficha a: 

PRINT "Titulo ”,L$(3,1> 

PRINT "Autor ”,LS(3,2) 

PRINT "Materia ”,L$(3,3) 

PRINT PRINT PRINT INPUT "Presione <ENTER> para continuar ”,z$ 


RETURN 
$ GRABAR FICHERO 
PRINT CLS$ NPUT "NOMBRE DEL FICHERO ”,FS 

OPEN ”0”,1,FS$ 

FOR J=1 TO K 

WRITE +1,L8(J,1>,L$(J,2>,L$5(J,3> 


NEXT 

PRINT”FICHERO ”F$,'GRABADO" 

CLOSE 

INPUT "PRESIONE <ENTER» PARA CONTINUAR”,Z$ 
RETURN 


9. EJEMPLO PRACTICO 2. Juego educativo de preguntas y respuestas 


El segundo ejemplo que se expone de manejo de ficheros secuenciales, corresponde 
a un sencillo juego educativo, del tipo preguntas y respuestas, que parecen estar de 
nuevo de moda. 


Una vez más el objetivo propuesto es el didáctico y no el de tratar de mejorar el 
*“Trivial”. El juego se basa en presentar una pregunta elegida aleatoriamente de las 
almacenadas en memoria, junto con tres respuestas, tipo test, de las que el jugador 
debe elegir una. El programa le indica si la respuesta es o no correcta y lleva la con- 
tabilidad de aciertos y fallos. 


Se han desarrollado dos programas independientes, el primero “GENEPRE”, per- 
mite la generación de los ficheros de preguntas, que serán utilizados posteriormente 
por el segundo programa, “PREYRE” y que constituye el juego propiamente 
dicho. 
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— Pgm. GENEPRE 


Debe introducirse el número de preguntas que contendrá el archivo y el nombre del 
mismo. 


Tras la apertura del archivo, se procede a grabar en primer lugar el número de pre- 
guntas y posteriormente, por bloques, la pregunta, las tres respuestas y el número de 
la respuesta válida. 


A pesar de cada vuelta del bucle incluye una orden de escritura, observará que al 
principio no se ilumina el disco, esto es debido a la existencia de un buffer interme- 
dio, que retrasa dichas órdenes hasta tanto no está lleno, de esta forma se minimiza 
el número de acceso al disco. 


10 7 aaoialoldlolokk PGM. GENERADOR DE PREGUNTAS Y RESPUESTAS *Xk**X*kxXXkXkxk 
20 7 *xxkxkxkkkk CREA LOS FICHEROS UTILIZADOS POR ”PREYRES” A *xxXxkxxxkk 
30" AMRMOIOSOOKk "GENEPRE” ASES 
40 7 

50 CLS$=CHR$(27)+"”E'"+CHR$(27)+"”H” 

60 PRINT CLS$ 

70 PRINT” Adeeebrkkkk PGM. GENERADOR DE PREGUNTAS Y RESPUESTAS A4RSSROOIOdOKkx" 
80 PRINT: INPUT "NUMERO DE PREGUNTAS ”;NP 

90 PRINT: INPUT '"NOMBRE PARA EL FICHERO ”;FS 

100 OPEN ”0”,1,FS$ 

110 WRITE +1,NP 

120 FOR K=1 TO NP 

130 PRINT CLSS 

140 PRINT”"NO.”;K 

150 INPUT "Pregunta MP RS. 

160 IMPUT "Respuesta 1: ”,R1$ 

170 INPUT "Respuesta 2: ”,R2$ 

180 INPUT "Respuesta 3: ”,R3$ 

190 INPUT "Cual es la respuesta acertada (1,2 o 3) ”,R 

200 PRINT: INPUT *DATOS CORRECTOS (S/N)> ”;Z$ 

210 IF UPPERS(Z5>=”S” THEN 240 

220 IF UPPERS(Z$>=”N"” THEN 130 

230 GOTO 200 

240 WRITE 4*1,PS,R15,R2$,R3$S,R 

250 NEXT K 

260 CLOSE 

270 PRINT CLS$;”FIN DE ENTRADA DE PREGUNTAS” 

280 PRINT: INPUT "Generar otro fichero (S/N) ”;Z$ 

290 IF UPPERS(Z$>="”S” THEN RUN 

300 IF UPPERS$S(Z$>)="”N"” THEN END 

310 GOTO 280 

— Pgm. PREYRE 


Dada la simplicidad del mismo, tanto de programación como de uso, resultaría pró- 
lija su descripción detallada, por tanto, se destacan a continuación únicamente los 
detalles más significativos. 


90 Antes de proceder a la lectura del fichero indicado, se comprueba su existencia 


en el disco, tal como se indicó en el apartado 7 de este capítulo. 
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120 Dado que todos los datos del fichero serán almacenados en memoria principal, 
se procede al dimensionamiento de matrices que los contengan. Aunque se hu- 
biese podido utilizar una sola matriz bidimensional, como se hizo en el ejemplo 
anterior, se han utilizado 6 matrices de una dimensión, P$, R1$, R2$ y R3$, pa- 
ra las preguntas y respuestas, R, para los numeros de las respuestas y SOL, para 
controlar las preguntas que ya han salido, con el fin de que no se repitan. 


210 La variable SUMA es el contador del número de preguntas. 


220 Dado que el número total de preguntas, almacenado en disco, es recogido por la 
variable NP, esta línea controla el fin de juego por agotamiento del número de 
preguntas. 


230 Elección aleatoria del número de la pregunta. 


350 Esta línea en combinación con la 360 y 420 y subsiguientes controlan el acierto y 
el fallo. La variable A acumula los aciertos y F, los fallos. Observe como en am- 
bos casos el elemento correspondiente de la matriz SOL, es puesto a uno con el 
fin de que la 240 pueda controlar el que no se repitan las preguntas. 


10. 7 ARAS OOOOIOOJO OK PREGUNTAS Y RESPUESTAS ARO ROO OOJOOK 
20. 7 ARRAIORO OOO ROIOOOIOJOK ”PREYRE” ETE 
30 “7 

40 CLS$=CHR$ (27 )+”E'"+CHR$(27)+"”H"” 

50 PRINT CLS$ 

60 PRINT: INPUT *”NOMBRE DEL FICHERO DE PREGUNTAS ”;¡FS 


IO Ed COMPROBACION Y LECTURA DEL FICHERO 
80 ” 
90 IF FINDS(F$>)="”” THEN PRINT"El fichero ”;FS$;” no existe”:GOTO 60 


100 OPEN ”I”,1,FS 

110 INPUT +*1,NP 

120 OPTION BASE 1: DIM PS(NP>,R1S(NP>,R25S(NP>,R3S(NP>, RNP), SOLCNP> 
130 FOR K=1 TO NP 

140 INPUT +*1,P$S(K>,R1$(K>,R25(K)>,R3$(K>,R(K) 


150 NEXT K 

160 CLOSE 

170 PRINT: PRINT”FICHERO DE PREGUNTAS ";¡FS;” CARGADO” 
180 PRINT: INPUT "PRESIONAR <RETURN> PARA CONTINUAR ”;Z$ 
LORO a Si DDR a BUCLE DE PREGUNTAS 
200 7 


210 SUMA=SUMA+1 

220 IF SUMA>NP THEN 500 

230 X=INT(RNDXNP>+1 

240 IF SOL(X>=1 THEN 230 

250 PRINT CLS$;"ACIERTOS =";A,”FALLOS =";F,,'”PREGUNTAS ="”;SUMA-1 
260 PRINT:PRINT TAB(28)”PREGUNTA No.”; SUMA 


270 PRINT 
280 PRINT "Pregunta : "”,PS(X> 
290" PRINT "Respuesta 1: ”,R1$(X) 


300 PRINT "Respuesta 2: ”,R2$(X) 

310 PRINT "Respuesta 3: ”,R3$(X) 

320 PRINT: PRINT 

330 INPUT "Introduce la respuesta acertada (1,2 o 3) ”;¡R 
340 IF R<1 OR R>3 THEN 330 

350 IF R=R(X> THEN 360 ELSE 420 

TOO a de A ACIERTOS 
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380 
390 
400 
410 
420 
430 


450 
460 
470 
480 


500 
510 
520 
530 
540 
550 


PRINT:PRINT "ACIERTO !” 
A=A+1: SOL (X)>=1 

PRINT: PRINT: PRINT: 

GOTO 480 

E ER ia .......... FALLOS 


PRINT: PRINT”FALLO" 

F=F+1: SOL(X>=1 

PRINT: PRINT”LA RESPUESTA ACERTADA ES LA No. ”;¡R(X) 
PRINT: PRINT: PRINT 

PRINT: INPUT '"PRESIONAR <RETURN> PARA CONTINUAR ”;Z$ 

GOTO 210 

EE AS A FIN DE PROGRAMA 

PRINT CLSS: PRINT:PRINT TAB(27)>"R E SUL TA DO S”:PRINT 
PRINT TAB(26>)"======================":PRINT: PRINT 

PRINT "ACIERTOS ="”;A,,”FALLOS =";F,,'”PREGUNTAS =”; SUMA-1 
PRINT: PRINT: PRINT:PRINT: 

END 


Utilice GENEPRE para preparar las preguntas y las respuestas. Cada pregunta ha 
de componerse de: 


Pregunta 

Respuesta 1 

Respuesta 2 

Respuesta 3 

Ne respuesta válido (1 a 3) 


Por ejemplo 


Pregunta: ¿Quién descubrió América? 
Respuesta 1: Julio Iglesias 

Respuesta 2: Cristóbal Colón 
Respuesta 3: Magallanes 

N? respuesta: 2 


Mediante este programa puede preparar tantos ficheros como desee, p.e. ““GE- 
OGRAF”, “HISTORIA”, etc., que posteriormente puede utilizar mediante RUN 
“PREYRE”, el uso de este programa es autoexplicativo, siga las instrucciones de 
pantalla. 
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6. Ficheros de acceso directo 


1. INTRODUCCION 


Hemos visto en el capítulo anterior cómo en los ficheros secuenciales —para leer un 
registro— se ha de proceder a la lectura de todos los anteriores; y cómo —para 
corregir datos— hemos de cargar todo el fichero en memoria, modificarlo y grabar 
el nuevo fichero. 


Todos estos “inconvenientes”? se subsanan con los ficheros de acceso directo, tam- 
bien conocidos como aleatorios. En éstos, el acceso a un dato o grupo de da- 
tos es inmediato y directo, sin pasar por los anteriores, tanto para lectura como para 
grabación, de tal forma que la corrección de un registro no exige la manipulación 
del resto ni la alteración del fichero en el disco, tomado como conjunto. 


Por su propia naturaleza los secuenciales van íntimamente unidos a las matrices, 
mientras los aleatorios no, puesto que la lectura o grabación de un registro no re- 
quiere este tipo de estructura, sino variables simples. 


2. CONCEPTOS PREVIOS 


El ejemplo más claro del significado del almacenamiento de acceso directo, nos lo 
ofrece el propio sistema de gestión del disco. 


Cuando formateamos un disco, vemos que éste se divide en 40 pistas (círculos con- 
céntricos) y que cada pista se divide a su vez en 9 partes iguales, que reciben el 
nombre de sectores. 


La capacidad de un sector es de 512 bytes, por lo que, realizando una pequeña ope- 
ración (40 . 9.512 = 184,320), llegamos a la conclusión de que cada cara de un dis- 
co dispone de 184.320 bytes; lo cual supone 180K de capacidad máxima 
(184.320/1.024 = 180K). 


Cuando se graba un programa, se incluyen en el directorio —además del nombre— 
la pista y sector donde comienza y donde acaba. Tenga en cuenta que no tienen por 
qué ser contiguos y, de hecho, lo normal es que estén separados, de manera que un 
fichero se encuentre repartido por varios sectores del disco. 


Al recibir una orden de lectura, se accede, en primer lugar, al directorio y, si existe el 
fichero, se recoge la información sobre la forma en que dicho fichero está repartido 
por el disco. Esto constituye un acceso directo, puesto que no hay que leer ficheros 
anteriores para acceder al buscado. 
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La antítesis de lo expuesto es la cinta —almacenamiento secuencial — donde para le- 
er un fichero (programa) hay que comenzar desde el principio. Por supuesto que 
Vd. puede contar las vueltas y saber más o menos donde comienza, pero la ma- 
niobra manual de hacer avanzar la cinta sigue constituyendo una búsqueda secuen- 
cial (¡y encima ““a mano””!). 

Cuando se crea un fichero de acceso directo también se crea un índice, que permite 
localizar cualquier registro; de manera que existe una analogía entre ficheros de ac- 
ceso directo y disco en cuanto a la forma de guardar la información. 


Disco Fichero Acceso Directo 


Directorio de Ficheros Registros 


Identificación Nombre del Número del registro 

mediante fichero 

Organización Sectores de Registros de igual 
512 bytes longitud 





La identificación de un fichero viene dada por su nombre, mientras que la de un re- 
gistro viene dada por su número de orden. El conocer su número de orden es impor- 
tante, pues permite el acceso directo propiamente dicho. Esto no quiere decir que 
sea estrictamente necesario, pues siempre podemos buscar un elemento recurriendo 
a las técnicas utilizadas en los de acceso secuencial, pero evidentemente perdemos su 
mayor ventaja. 


Una particularidad de estos ficheros es todo lo relativo a la longitud de los registros. 
En los secuenciales podíamos tener la información almacenada, una tras otra, con 
longitudes distintas. Por ejemplo: 


“LUIS”, ““JOSE MANUEL”, ““PEDRO”” 
4 11 5 


Sin embargo, los registros de un fichero de acceso directo han de tener igual longi- 
tud. Esto se consigue llenando de blancos los espacios sobrantes, como se verá más 
adelante. Volviendo al ejemplo anterior y representando con un “*__” al espacio, los 
registros anteriores, definidos como de longitud 11 quedarían: 


“LUIS 


11 11 11 


La necesidad de que los registros tengan la misma longitud es ovbia, es la única ma- 
nera de saber el ordenador dónde empieza el siguiente. 


Lo primero que salta a la vista es que este tipo de estructura desaprovecha espacio. 
Más adelante, veremos cómo se crean estos ficheros y se dimensionan sus registros, 
a fin de optimizar —en lo posible— el tamaño del fichero. Pero antes vamos a mati- 
zar qué es un registro y de qué está compuesto. 
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Un registro no es como en los ficheros secuenciales —un hueco donde introducir un 
dato— sino que contiene subapartados denominados campos, y en cada campo 
puede introducirse un dato. 


La forma más sencilla de comprender esta estructura es imaginar que un registro es 
como una tarjeta de visita, que contiene nombre, dirección, ciudad, teléfono, etc. 
Pues bien, cada uno de estos apartados es un campo, y además, estos campos guar- 
dan un cierto orden establecido: primero el nombre, segundo la calle, etc. De esta 
forma, cada registro contendrá los siguientes campos: 


Campo 1? 20 


A E 
ec] os 50 e e [01] 
[nr | is [ [es] cs ] 506 [+] 


Registro 1 Registro 2 





Un registro puede contener perfectamente un solo campo o varios sin limitación. 


3. FORMATOS DE REGISTRO 


Antes de trabajar con ficheros aleatorios, debe fijarse la longitud total de los regis- 
tros y de cada uno de los campos que lo componen. La apertura de un fichero alea- 
torio implica la reserva de un espacio estandar de memoria, de 128 bytes si no se in- 
dica explícitamente otro valor (ver MEMORY), dicha reserva se conoce como “*“tam- 
póÓn de registros””. 


El formato de registro, que constituye el número de campos y su distribución en el 
registro debe colocarse en el tampón, antes de realizar grabaciones en el fichero. Es 
en definitiva una plantilla de como ha de almacenarse la información. 


Para ver prácticamente como se utilizan dichos formatos o plantillas, vamos a con- 
siderar un ejemplo que será desarrollado más tarde en el programa “*AGENDIR”, 
al final del capítulo. 


Se trata de construir un fichero de direcciones (agenda), cuyos registros han de con- 
tener: 


Nombre, dirección, población, provincia, código postal y teléfono, estos registros 


estarán formados por seis (6) campos, que serán identificados por las siguientes va- 
riables, respectivamente: 


NUMS$, CL$, POB$, PROS, CPS, TELS 
(el nombre de las variables es establecido libremente por el programador) 


La longitud establecida en este ejemplo, para cada campo, es la indicada en el si- 
guiente cuadro 
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Variable Longitud Caracteres 
Ejemplo de contenido de del 
ejemplo 


Editorial ra-ma 

Carretera de Canillas - 144 
Madrid 

Madrid 

28.043 

91 - 200 97 46 - 47 





Se ha previsto pues para cada campo una longitud máxima, es decir, un número de 
caracteres como límite, pero ello no impide que puedan almacenarse menores, como 
se ven en la última columna del cuadro. 


La longitud del registro, será la suma de la de todos los campos que lo componen, en 
el ejemplo 


35 + 40 + 15 + 12 + 6 + 15 = 123 


Como 123 es menor que la longitud del tampón estandar no es necesario modificarlo 
con MEMORY. 


Tanto las variables identificativas de los campos, que denominaremos “*variables de 
campo”, como las distintas longitudes y por extensión la total, se definen mediante 
la orden FIELD (campo). Su síntaxis general es: 


FIELD n? fichero, long. campo 1 AS var.1, Long. campo 2 AS var.2, .... 


Siguiendo con el ejemplo y suponiendo que el número de fichero será uno, la orden 
de formato de registros será 


FIELD 1, 35 AS NOMS, 40 AS CLf$, 15 ASPOBS, 12 ASPROS, 6 AS CPY$, 
15 AS TEL$ 


Para un mismo fichero y en caso necesario, pueden definirse varios formatos de re- 
gistro. 


Las variables de campo, una vez definidas por FIELD, son distintas del resto de va- 
riables alfanuméricas, en el sentido de que su longitud es fija y en que su asignación 
no se realiza con la sentencia LET, sino con alguna de las sentencias que se indican a 
continuación. 


4. ASIGNACION DE LAS VARIABLES DE CAMPO 


Dado que la longitud de un campo es fija y como consecuencia lo será la variable de 
campo correspondiente, ocurre generalmente que al utilizar datos reales, sus longi- 
tudes son variables, en el ejemplo del apartado anterior (cuadro), el primer campo 
tiene una longitud de 35, mientras que el nombre sólo ocupa 15 caracteres, los 20 ca- 
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racteres de diferencia habrán de obtenerse añadiendo espacios. Esto puede hacerse 
de dos formas: añadiendo blancos por la izquierda o por la derecha de la cadena. 


Mallard BASIC dispone de dos órdenes de asignación de variables de campo, que 
realizan de forma automática el relleno de blancos. La forma general de estas Órde- 
nes es 


““Expresión literal”” 
LSET var. campo ( p e 
variable alfanumérica 
“Expresión literal” 
variable alfanumérica 


RSET var. campo 


Como quizá haya podido adivinar L y R son las iniciales de las funciones de frag- 
mentación LEFT$ y RIGHTS, de manera que LSET asigna a la variable de campo el 
literal correspondiente, alineándolo por la izquierda, mientras RSET lo hace por la 
derecha. 


Veamos un sencillo ejemplo, sea A$ la variable de campo definida por 
FIELD 1,6 AS AS$ 
Si suponemos que Z$ = “HOLA”, la sentencia de asignación 


LSET A$ =Z$ = A$=“HOLA_ _” 


mientras 


RSETAS =Z$ = A$=“__ HOLA” 


representando los espacios por el símbolo (—). 


Además de estas dos sentencias de asignación, Mallard BASIC dispone de otra, ya 
conocida pues se utiliza para fragmentar cadenas. Su forma general es 


““expresión literal”” 


MIDS (var. campo, origen, longitud) = ( variable alfanumérica 


Permite tomar del literal una subcadena de la longitud indicada y la asigna a la va- 
riable de campo, a partir de la posición dada por el origen. 


Siguiendo con el ejemplo último (RSET), si aplicamos posteriormente 
MIDS (AS, 1, 2) = B$siendo B$ = “PINO” 


se obtendrá D$ = “PIHOLA”. 


Todo lo expuesto se refiere al campo alfanumérico, si se trata de almacenar núme- 
ros, también pueden utilizarse las tres asignaciones descritas, realizando la transfor- 
mación de número a literal numérico mediante la función STR$, por ejemplo si 
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tiene que almacenarse el número 12.340 contenido en la variable N, en la variable de 
campo A$, por la izquierda puede utilizarse 


LSET A$ = STR$(N) siendo N = 12340 


Esta forma aunque válida, resulta ineficaz desde el punto de vista de ocupación, ya 
que el número como tal ocupa menos bytes que el literal correspondiente. Para ello 
se dispone de tres funciones que transforman números, a efectos de almacenamiento 
en archivo, en cadenas más compactas que las obtenidas por STR$, aunque estas ca- 
denas no pueden ser representadas gráficamente. 


MKDS$ (número) Convierte un número de doble precisión en cadena de 8 
caracteres. 


MKDSS$ (número) Convierte un número de precisión sencilla en cadena de 8 
caracteres. 


MKIS (número) Convierte un número entero en una cadena de 2 caracteres. 


De la misma forma que la función STR$ tiene una inversa, VAL, existen otras tan- 
tas inversas para las anteriormente expuestas y son respectivamente, CVD, CVS y 
CVI, que convierte cadenas en números. 


CVD (cadena) Convierte una cadena de 8 bytes en un número de doble precisión. 
CVS (cadena) Convierte una cadena de 4 bytes en un número de simple precisión. 


CVI (cadena) Convierte una cadena de 2 bytes en un número entero. 


Volviendo al ejemplo anterior en que se utilizó STR$, la conversión en cadena de N 
podía ser 


LSET A$ = MKIS (N) 


Se utiliza MKIS, por ser N = 12340 (número entero). De esta forma el dato puede 
proceder a su grabación en archivo, en la forma que se verá más adelante. Una pos- 
terior lectura obligaría a la transformación apropiada para poder ser usado como tal 
valor numérico, la función sería CVI, por ejemplo 


N = CVI (AS) 
Aunque en el ejemplo se utiliza LSET como sentencia de asignación, recuerde que 


también dispone de RSET y MIDS. 


5. APERTURA DE FICHEROS 


La orden de apertura de ficheros aleatorios, es la misma que la utilizada anterior- 
mente para los ficheros secuenciales, únicamente se diferencia en el tipo de lectura, 
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en los secuenciales podía ser **O”” para escribir e **I”” para leer, en los aleatorios (ac- 
ceso directo) solo existe el tipo “*R”” (R-Random/aleatorio), tanto si es para lectura 
como para escritura, no hay pues distinción. 


La forma general es: 
OPEN ““*R”, número fichero, nombre fichero 


Una función muy útil antes de la apertura de un fichero, es la realizada por FIND$, 
descrita en el apartado 7 del capítulo anterior, y cuyo uso es muy recomendable, a 
fin de no producir interrupciones en la marcha del programa por la no existencia de 
un fichero determinado. 


NOTA Si se abre un fichero y este no existe, la orden OPEN lo crea 


6. LECTURA Y ESCRITURA DE REGISTROS 


Una vez abierto un fichero de acceso directo y definida su plantilla y variables de 
campo, las órdenes de lectura y escritura son muy simples. 


— Lectura. Se utiliza la orden GET en la forma: 
GET número fichero, número registro 


Si se omite el segundo parámetro (número registro), la lectura se realiza secuencial- 
mente, es decir el registro leído es el siguiente al último leído con GET. En cualquier 
caso la operación de lectura afecta a un registro completo y no a un determinado 
campo, sin embargo el contenido de cada campo es almacenado en cada una de las 
variables de campo definidas por FIELD, así en el ejemplo propuesto en el apartado 
3 de este capítulo y suponiendo que se almacenó como registro uno y que el fichero 
es también el número uno, la orden 


GET 1,1, 


provocaría una asignación de los datos de dicho ejemplo, a las variables de campo 
que se indicaron, es decir 


NOM$ ““Editorial ra-ma”” 
CL$  = “carretera de Canillas 144”” 


TEL$ = 91 -20097 46 - 47 


En los ejemplos prácticos incluidos al final del capítulo, puede observarse con de- 
talle dos casos pormenorizados de lectura. 


— Escritura. La operación ha de ser análoga a la lectura y por tanto la forma de 
PUT, que es la orden de grabación, será: 


PUT número de fichero, número de registro 


121 


En este caso son las variables de campo las que producen el volcado de su informa- 
ción sobre el disco, en el fichero y registro indicado. 


La omisión del segundo parámetro producirá la grabación secuencial de los re- 
gistros. Esta forma suele ser usada únicamente cuando se trata de inicializar el fiche- 
ro y los datos están contenidos en una matriz, la única ventaja es el tiempo, ya que al 
realizar la grabación de registros uno tras otro, no necesita calcular la posición de 
escritura de cada uno de ellos. 


7. MODIFICACION DE ARCHIVOS 


El acceso directo a un registro permite que las modificaciones puedan realizarse 
sobre el propio registro, sin afectar al resto, al contrario de los secuenciales en que 
debe cargarse todo el fichero, modificarse en memoria y volverse a grabar completo. 
El trabajo de lectura y escritura en los de acceso directo es normalmente sobre un re- 
gistro, salvo la excepción hecha de su posibilidad de trabajo secuencial y aún en este 
caso su manejo de campos los hace más potentes. 


EJEMPLO PRACTICO 1. Agenda de direcciones 


Como resumen de las explicaciones anteriores sobre el uso y manejo de ficheros de 
acceso directo, se incluye un programa completo, que permite llevar una agenda 
personal y que con pequeños retoques puede adaptar a sus necesidades particulares. 
Una vez más se han tratado de unir lo práctico y lo didáctico, habiéndose cuidado su 


longitud, de forma que no resulte muy penosa su copia, aunque puede obviarla me- 
diante el disco ofertado en la nota al pie del índice general. 


Organigrama general 


Se ha utilizado la técnica de un pequeño programa principal, compuesto principal- 
mente por un Menú de opciones y una serie de rutinas dependientes y direccionadas 
por él. Su esquema básico es el de la página siguiente. 


De las 6 opciones del Menú la 2? y 3? se han resuelto juntas, así como la 5* y la 0%, 
ya que como se verá más adelante simplifican el programa. 


Bases de partida 


El programa permite gestionar una agenda de direcciones con un número de fichas 
limitado por la capacidad del disco, seguramente muy superior a las necesidades 
corrientes. Cada ficha contiene nombre, dirección, población, provincia, código 
postal y teléfono, datos que aún siendo bastante completos, pueden aumentarse 
introduciendo pequeñas variaciones en el programa, no dude en realizarlas persona- 
lizando así “su agenda”. 
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1000 3200 


1 
Abrir ficheros Retorno al 
(plantilla) Menu 


1090 3210 








2000 





Introducir y 
Modificar 
fichas 











Proerama Principal 


MENU 2220 









260 


3000 
La A 


3190 





Cerrar ficheros 
y FIN 








Descripción 
— Programa principal. Menú. 


La línea 60 establece una variable que contiene los caracteres de borrado de la pan- 
talla, a la que denominamos CLSS$, por su parecido con la orden CLS de otras ver- 
siones BASIC y que hemos utilizado en otros programas. La 70 asigna a S$ una ca- 
dena de 66 asteriscos, que será utilizada para la presentación del menú en pantalla. 


Las líneas 100 a 230 presentan el menú de opciones, que se indica en el organigrama 
básico. 


Las líneas 240 y 250 realizan la selección y direccionamiento a la subrutina corres- 
pondiente. La repetición de los números 2000 y 4000 corresponde al comentario 
hecho anteriormente sobre la unificación de las opciones 2? /3* y 5%/0. 


La 260 produce el retorno al Menú, tras la vuelta de las subrutinas. 


Las líneas 270 y 280 son en realidad innecesarias y no se han suprimido por si el lec- 
tor prefiere que la opción O del menú, en vez de direccionarse conjuntamente con la 
5*, se haga de forma independiente, precisamente a 270, cambiando la última línea 
(4070) por un RETURN en vez de END, ya que como ve hay dos finales cosa poco 
ortodoxa. 


— Rutina 1. Abrir fichero. 


El programa maneja dos ficheros, el etiquetado como 1 (1030) es de acceso directo y 
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contiene las fichas (registros) de direcciones, el fichero número 2, es de tipo secuen- 
cial y contiene un solo dato, el número total de fichas del fichero anterior, tiene co- 
mo nombre fijo, “NUMFICHA”, mientras que el del aleatorio viene dado por IN- 
PUT (1020). 


El segundo fichero podía evidentemente obviarse, guardando el número de fichas en 
el de acceso directo, construyendo una plantilla especial y utilizando el primer re- 
gistro. Si se utiliza esta forma el número de ficha sería igual al de registromás uno, ya 
que el registro número 1 estaría ocupado por el dato singular mencionado. 


Se ha preferido la utilización de dos con el fin de trabajar simultáneamente con más 
de un fichero e incluso de tipos diferentes. 


La línea 1030 es la encargada de la apertura del fichero aleatorio, para el que se fija 
como número de fichero el uno. Si el fichero de direcciones va a recibir un nombre 
fijo, que es lo lógico puede sustituirse el INPUT de 1020 por un LET, por ejemplo 


1020 LET F$ = “AGENDA” 


Las líneas 1050 y 1060 realizan una función de apertura del fichero secuencial, del ti- 
po **O”” 6 “*I””, dependiendo de su existencia previa o no. La primera vez que se uti- 
liza el programa, el fichero NUMFICHA no existe, la función FINDS nos devolverá 
la cadena vacia y al verificarse la condición de 1050, se procede a la apertura para 
escribir, se escribre el valor 0 (ninguna ficha) y se cierra el fichero, etiquetado como 
2. Si la condición de 1050 no se verifica, ello implica la existencia del fichero NUM- 
FICHA y como consecuencia se procede a la apertura para leer, lectura del número 
de fichas contenido en él y posterior cierre. 


La línea 1040 establece la plantilla y variables de campo, que corresponden al 
ejemplo propuesto al comienzo del capítulo. La 1070 procede al cierre de este fiche- 
ro aleatorio. 


Observe que el CLOSE 2 de la línea 1050 y el de 1060, así como el CLOSE 1 de 1070, 
podrían sustituirse por un solo CLOSE, sin número, precisamente ubicado en 1070. 
La única razón de no hacerlo, es quizá la de dar pie a este comentario, analizando 
las distintas posibilidades de la orden de cierre. 


La 1080 produce un comentario, señalando el nombre del fichero de datos y el nú- 
mero de fichas que contiene, este último dato es importante, pues permitirá añadir 
nuevas fichas introduciendo como número de registro valores sucesivos más altos 
del indicado por esta instrucción. 


En 1090 se transfiere el control a la rutina 3200, que espera la pulsación de RE- 
TURN, para retornar al Menú. 


Rutina 2 y 3. Introducir y modificar fichas. 

Con el fin de simplificar se ha resuelto la modificación de fichas, como si se tratase 
de una nueva, es decir, modificar uno o varios datos de un registro, implica teclear 
todos los datos del mismo nuevamente. Aún no siendo una práctica aconsejable, ha 


permitido una mayor brevedad y claridad al programa, objetivos propuestos como 
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prioritarios. Un buen ejercicio por parte del lector puede ser el desdoblamiento de 
estas rutinas, dejando la existente como Introducción de fichas y elaborando una 
nueva que permita modificar un campo, sin tener que teclar todos, en caso de ha- 
cerlo no olvide modificar la línea 250 de direccionamiento. 


La línea 2010 informa sobre cual es la última ficha que se introdujo, o lo que es lo 
mismo, de cuantas fichas se compone el fichero. La 2020 pide el número de ficha a 
modificar o introducir. 


La 2040 controla si se va a realizar una modificación o se pretende introducir una 
nueva. Si el numero de ficha es mayor que el de fichas existentes, se trata de una 
ampliación y por tanto se produce un cambio de la variable UFICHA que pasa a to- 
mar el valor de ficha, siendo 


FICHA variable que recoge el número de ficha a modificar o introducir 


UFICHA variable que recoge el número total de fichas existentes y que fué 
leída del fichero NUMFICHA 


Si FICHA > UFICHA — UFICHA = FICHA 


Por ejemplo, el fichero contenía 16 fichas y en 2010 se dió como ficha a modificar 
17, ello implica una ampliación, por lo que se realizará el cambio previsto por 2040. 


De 2060 a 2110 se piden los datos de cada uno de los campos, almacenándose en va- 
riables auxiliares, distintas de las variables de campo. Si los datos introducidos son 
correctos (2120 y 2130), se procede a la asignación de las variables de campo, me- 
diante alineación por la izquierda (LSET, líneas 2140/2190). 


La 2200 produce la grabación en el registro correspondiente (variable FICHA dada 
por el INPUT de 2020) y la 2210 el cierre del fichero que se abrió en 2030. Se ha utili- 
zado CLOSE sin parámetros, aún cuando pudo utilizarse CLOSE 1. 


La 2220 produce el retorno al Menú. 
Rutina 4. Búsqueda de fichas. 


La búsqueda se ha establecido en base a la inclusión y únicamente por el nombre. En 
ejercicios anteriores (ficheros secuenciales) tiene búsquedas más completas. 


Tras solicitar el nombre en 3030, que no tiene porque ser completo, la 3050 produce 
un bucle de rastreo, cuando no se verifica la condición de la 3070, es que se ha en- 
contrado un registro que corresponde al buscado y como consecuencia se imprime 
su contenido, en caso contrario continúa la búsqueda. 


Dado que en una agenda puede buscarse un nombre, p.e. “PEPE” y existir varios, 
la línea 3160 transfiere el control a 3220 para decidir entre continuar la búsqueda o 
salir (línea 3240/3190). 


Puede ocurrir que el nombre buscado no exista y por tanto se produzca el agota- 
miento del bucle 3050, por ello se introduce tras el NEXT de 3170 un mensaje al 
efecto. 
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Las líneas 3040 y 3190 producen la apertura y cierre respectivamente del fichero de 
datos. 


Rutinas 5 y O. Cierre de ficheros y fin de la sesión de trabajo. 


Dado que el fichero de datos ha sido abierto y cerrado por las distintas rutinas ante- 
riores solo queda en esta operación, la introducción en el fichero del número de 
fichas, del último valor de la variable UFICHA, por si esta ha tenido modifica- 
ciones. 


La línea 4020 se encarga de abrir, escribir y cerrar el fichero. La 4030 es redundante 
y esto además, se incluye únicamente como aviso útil en programación, sobre todo 
durante el proceso de creación y puesta a punto de un programa, en que es conve- 
niente que el fin de tarea produzca un cierre de todos los ficheros, por si alguno pu- 
do quedar abierto, es una simple medida de seguridad, tenga en cuenta que un CLO- 
SE de más nunca está de más y no produce ningún tipo de error. 


Las líneas 4040 y 4070, producen unos mensajes previos al fin de programa. Recuer- 
de lo comentado respecto a un auténtico cierre con el epígrafe del programa princi- 
pal. 


10 7 AaRldldSldlRSlObIOlolololololok. AGENDA DE DIRECCIONES — AMARRRIRIOIRIOOIVIOIOIOK 


20 7 aMRaldadldlaROlaolalololalolook. Fichero aleatorio FAMOSAS ll 
30 RRORIOIOOIOIOIOIOIOIO oK » AGENDIR” Fall lIlROIIOK 
40 - 


60 CLS$=CHRS (27 )+"E'+CHR$(27)+"H” 
70 s$=STRINGS(66,”x*”) 





100 MENU 
110 PRINT CLSS$ 

120 PRINT "MRMROROCOOIOlOldldldlOlOlVllol ok AG E N D A Aalto Rojo? 
130 PRINT S$ 

140 PRINT 

150 PRINT TAB (30)"M E N U” 

160 PRINT TAB (30»>” = = 

170 C=28.PRINT PRINT TAB(C>”1 ABRIR FICHERO” 

180 PRINT PRINT TAB(C>”2 Introducir fichas” 

190 PRINT PRINT TAB(C>”3 Modificar ficha” 

200 PRINT PRINT TAB(C>”4 Buscar ficha” 

210 PRINT PRINT TAB(C>”5 CERRAR FICHERO” 

220 PRINT PRINT TAB(C>”6 E? APN" 

230 PRINT PRINT S$ 

240 PRINT PRINT INPUT "SELECCIONAR OPCION ”,OP 

250 ON OP GOSUB 1000,2000,2000,3000,4000,5000 

260 GOTO 110 

270 PRINT CLSS 

280 END 

1000 7 ABRIR FICHERO 


1010 PRINT cls$ 

1020 INPUT '"Nombre del fichero ”,FS 

1030 OPEN ”R”,1,FS$ 

1040 FIELD 1,35 AS NOM$,40 AS CL$,15 AS POB$,12 AS PRO$,6 AS CPS$,15 AS TELS 
1050 IF FINDS(”NUMFICHA”>="”'” THEN OPEN ”0”,2,”NUMFICHA” WRITE *2,UFICHA CLOSE 2 
GOTO 1070 

1060 OPEN ”I”,2,'"NUMFICHA” INPUT *2,UFICHA CLOSE 2 

1070 CLOSE 1 


1080 PRINT PRINT PRINT”FICHERO ”,F$S,” VERIFICADO CONTIENE ”,UFICHA,” FICHAS 
1090 PRINT GOTO 3200 
2000 * INTRODUCIR O MODIFICAR FICHA 


2010 PRINT CLS$ PRINT”ULTIMA FICHA ”,UFICHA 
2020 PRINT INPUT "NUMERO DE FICHA ”, FICHA 
2030 OPEN ”R”,1,F$ 

2040 IF FICHA>UFICHA THEN UFICHA=FICHA 
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2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3040 
3100 
3110 
3120 
3130 
3140 
3150 
3100 
3170* 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
4000 
4010 
4020 
4030 
2040 
4050 
4060 
4070 
5000 
5010 


PRINT CLS$ PRINT”FICHA”, FICHA 


INPUT "Nombre ”,NS 
INPUT '"Domicilio ”,DS 
INPUT "Poblacion ",PS 
INPUT ”Provincia »,PRS 
INPUT "Codigo Postal ”,Cs 
INPUT "Telefono MTS 


PRINT INPUT "datos correctos (S/N) ”,Z5 
IF UPPER$S(Z$)<>”S” THEN 2050 
LSET NOMS=NS 

LSET CL$=D$ 

LSET POBS=PS$ 

LSET PROS=PR$ 

LSET CP$=C8 

LSET TELS=TS 

PUT 1,FICHA 

CLOSE 

RETURN 

e BUSCAR FICHA 
PRINT CLS$,”BUSQUEDA DE FICHAS” 





PRINT"== =======" 
INPUT "NOMBRE ”,NS$ 

OPEN ”R”,1,FS 

FOR K=1 TO UFICHA 

GET 1,K 

IF INSTR(NOMS,N$>=0 THEN 3170 

PRINT CLSS$ 

PRINT" Nombre ”, NOMS 

PRINT"Calle, ”,CLS 

PRINT”Poblacion ”,POBS 

PRINT"Provincia », PROS 

PRINT"Codigo Postal ”,CPS$ 

PRINT"Telefono ”,TELS 

PRINT PRINT PRINT PRINT 

GOTO 3220 

NEXT K 

PRINT PRINT"NO HAY MAS FICHAS” 

CLOSE 

INPUT "PRESIONE <RETURN> PARA CONTINUAR”,Z$ 
RETURN 

INPUT "INTRODUCIR C=Continuar S=Salir ”,Z$ 
IF UPPER$(Z5>)="C” THEN 3170 

IF UPPER$(Z$>="S” THEN 3190 

á CERRAR FICHERO Y FIN PROGRAMA 
PRINT CLS$ 

OPEN ”0”,2,'"NUMFICHA” WRITE 4*2,UFICHA CLOSE 2 
CLOSE 

PRINT"F ICHEROS CERRADOS” 


PRINT PRINT"NUMERO DE FICHAS ALMACENADAS” , UFICHA 
FOR delay=1 TO 3000 NEXT 


RETURN 
S FIN DE PROGRAMA 


PRINT CLS$ PRINT”ANTES DE DAR POR TERMINADO EL PROGRAMA DEBE CERRAR LOS FI 


HEROS UTILIZANDO LA” 


5020 
5030 
5040 
5050 


PRINT”OPCION 5” INPUT "Desea finalizar (S/N>”,Z$ 

IF UPPER$(Z$)<>”S” THEN RETURN 

PRINT CLS$ PRINT” FIN DE PROGRAMA” 
END 


9. EJEMPLO PRACTICO 2. Gestión de videoclubs. 


Este programa, algo más largo que el anterioi, es una aproximación a la gestión de 
un videoclub, contiene los ingredientes básicos, si bien una vez más, se ha reducido 
al mínimo, buscando una mejor comprensión de forma que el lector interesado, 
pueda desarrollar sobre su base, programas más complejos. 


Se ha mantenido la estructura básica del programa anterior, un fichero aleatorio 
donde se almacenan los datos personales de los socios y las películas alquiladas 
(*“*“SOCIOS””) y otro secuencial que contiene únicamente el número de socios del 
club (*NSOCIOS”). 


El archivo de alquileres no es histórico sino temporal, es decir, los datos son conser- 
vados únicamente entre la fecha de alquiler y la de devolución, tras lo cual son 
destruidos o modificados por nuevo alquiler. No tendrá dificultad, si lo desea en 
añadir un tercer fichero a este fin, es decir un fichero histórico, del que posterior- 
mente puede sacar información estadística, etc. Por último las películas son mani- 
puladas por su número de identificación y no por título, por lo que quizá fuese con- 
veniente añadir un archivo de títulos. Todas estas posibilidades son muy propias de 
un programa profesional e implicaría el manejo de una unidad más de disco, puesto 
que la capacidad de almacenamiento de uno solo es reducida para el caso. 


A continuación se describe someramente el programa, habida cuenta del grado de 
afinidad con el anterior. 


— Programa principal. Menú. 


Como todo alquiler o devolución va unido a una fecha, el arranque diario del 
programa, implica la introducción de la fecha en curso (línea 90). Las líneas 110 a 
130 en combinación con la 40 y 70 permite la expresión de la fecha en la forma más 
habitual, a fin de realizar una comprobación de la bondad de la misma, antes de ser 
asumida por el programa, para su posterior utilización. 


El formato de fecha, manipulado por el pgm. y en el cual debe introducirse es: 
DDMMAA, es decir día con dos dígitos, mes con dos digitos y año por sus dos últi- 
mos dígitos, p.e., el 2 de Mayo de 1987, se introducirá como 020587, la confirma- 
ción de fechas se pide sobre el formato normal con expresión literal del mes y año 
con cuatro dígitos (válido hasta el 2000). 


Abrir fichero 


Esta rutina es idéntica a la del programa anterior. La plantilla y variables de campo 
utilizadas es la siguiente 


Variable Longitud Contenido 
de campo de campo 


NOMS$ 25 Nombre del socio 

Domicilio 

Teléfono 

Sistema (V-VHS, B-BETA, D-200) 
Fecha 

Película 1 

Película 2 

Película 3 

Película 4 

Película $ 














Como puede verse la fecha se almacena con el formato de entrada descrito y el nú- 
mero máximo de películas permitido es cinco, identificadas por un número máximo 
de 5 caracteres. Estas premisas, son fácilmente variables y/o ampliables. 


Alta de nuevo socio 


La rutina 2000 a 2210 permite la introducción de los datos de afiliación de un nuevo 
socio o bien la modificación de los mismos, tal como se hacía en el pgm. anterior. El 
control de si se trata de modificación o socio nuevo es realizado por la línea 2050 
mediante las variables NS (número de socios actual) y NSN (número de socios en 
curso). 


Dado que cada uno de los tres sistemas de video existen se identifica con un carácter, 
debe tenerse en cuenta a efectos del INPUT de la línea 2100. 


Búsqueda de socios 


Esta rutina permite informar sobre los datos de un socio y la situación de alquiler en 
que se encuentra. La rutina de búsqueda se ha implementado sobre la base de cono- 
cer su número de socio (número que coincide con el de registro) o su nombre (al me- 
nos parcialmente). 


Con el fin de utilizar una rutina común a ambas opciones, se establece un bucle de 
búsqueda entre los límites L1 y L2 (3070). 


Como la variable N$ (3030) recoge indistintamente el número de socio o su nombre, 
la línea 3040 a través de VAL identificar el tipo de información. Si VAL (N$) es cero 
se trata de una cadena, es decir un nombre y por tanto los límites de búsqueda se ex- 
tienden a todo el fichero (L1 = 1 y L2 = NS), en caso contrario se trata de un nú- 
mero, es decir, solo habrá que buscar el registro que coincide con ese número y por 
ello la línea 3050 hace L1 = L2 = NS, de forma que el bucle solo de una vuelta. 
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Una vez localizado el socio se imprimen en pantalla sus datos y la situación de al- 
quiler. 


Para listar todos los socios basta con pulsar RETURN como nombre o número de 
socio. 


Gestión de películas 


La línea 020 obliga a identificar al socio por su número, esto no es problema puesto 
que se dispone de la rutina anterior para conocer dicho número en función del 
nombre. 


Una vez leído el registro correspondiente por la línea 4050, se imprime su situación 
actual. La línea 4140 permite realizar tres operaciones, devolución de las películas, 
nuevo alquiler y salida con grabación de la nueva situación de alquiler y fecha, ac- 
tualizada. 


La devolución se realiza poniendo a “nada” las variables de campo correspondiente 
en las películas. El nuevo alquiler se realiza mediante la línea 4160, junto con 4210 y 
4220 y por último la salida produce una grabación actualizada del socio. 


Cierre y fin 


Es análogo al utilizado en el programa anterior y por tanto, caben las mismas obser- 
vaciones respecto al final, duplicado por 5070 y 670. 


10 7 MORO AA KA kk GESTION DE VIDEOCLUBS AMOR OOOO PIORRRR4x 

20. 7 MRS SONICO kk Fichero aleatorio AOS O 

30. 7 RRROSOPOSlOlOjoOlOK " VIDEO” IEEE EEES 

40 DATA ENERO, FEBRERO, MARZO, ABRIL, MAYO, JUNIO, JULIO, AGOSTO, SEPTIEMBRE, OCTUBRE, NOV 
IEMBRE, DICIEMBRE 

50 CLS$=CHR$(27>)+”E"+CHR$(27)+"H” 

60 F$="sSOCIOS” 

70 PRINT clss$5 PRINT TABC(6>'"MRaMRaRRMROloldRldldlbldkk GESTION DE VIDEOCLUBS MRS OOlOOJOK 
FOO” AS 

80 RESTORE DIM M$(12> FOR M=1 TO 12 READ M$(M> NEXT 

90 s$=STRING$(61,'xX”>) PRINT TAB(6)s5 PRINT 

100 PRINT TAB(15>” Introducir fecha DDMMAA *, INPUT ””,fechas$ 

110 IF LEN(fecha$><>6 THEN 100 

120 PRINT “AB(20», GOSUB 5130 

130 PRINT:*PRINT PRINT TAB(20>)”Fecha correcta (S/N)> ”, INPUT z5 

140 IF UPPER$S(Zz5)<>”sS” THEN 130 

150 7 

500 “7 MENU 

510 

520 PRINT cls$ PRINT TAB(6)>'"NMRRMRRMRlMdldblbRtkk GESTION DE VIDEOCLUBS A4AORMO SiO RORK 
AMOO”? 

530 PRINT TAB(6>5S5 

540 PRINT 

550 PRINT TAB (30)"M E N U” 

560 PRINT TAB (30)"==== 
570 C=27 PRINT PRINT TAB(C>”1 ABRIR FICHERO” 

580 PRINT PRINT TAB(C>”2 ALTA NUEVO SOCIO” 

590 PRINT PRINT TAB(C>”3 BUSCAR SOCIO" 

600 PRINT PRINT TAB(C>”4 GESTION DE PELICULAS” 

610 PRINT PRINT TAB(C>”5 CIERRE DE LA SESION” 

620 PRINT PRINT PRINT TAB(6>S$ 

630 PRINT PRINT TAB(28>”"”, INPUT "SELECCIONAR OPCION ”,OP 
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640 ON OP GOSUB 1000,2000,3000,4000,5000 

650 GOTO 500 

060 PRINT CLS$ 

670 END 

1000 * ABRIR FICHERO 

1010 “7 

1020 PRINT clss$ 

1030 OPEN ”R”,1,FS$ 

1040 FIELD 1,25 AS NOM$,30 AS CL$,7 AS TEL$,1 AS SIS$5,6 AS FE$S,5 AS P$(1>,5 AS P 
$(2),5 AS P$(3),5 AS PS5(4),5 AS PS(5) 

1050 IF FINDS(”NSOCIOS”>="" THEN OPEN ”0”,2,”NSOCIOS” WRITE 4*2,NS CLOSE 2 GOTO 1 
070 

1060 OPEN ”I”,2,”NSOCIOS” INPUT *2,NS CLOSE 2 

1070 CLOSE 1 

1080 PRINT PRINT PRINT”"FICHERO SOCIOS VERIFICADO CONTIENE ”,NS,” FICHAS” 
1090 PRINT GOTO 3220 

1100 7 

2000 * INTRODUCIR O MODIFICAR FICHA 

2010 * 

2020 PRINT CLS$ PRINT"ULTIMO SOCIO ”,NS 

2030 PRINT INPUT ''NUMERO DE SQCIO ”,NSN 

2040 OPEN "R”,1,FS 

2050 IF NSN>NS THEN NS=NSN 

2060 PRINT CLS$ PRINTS OC 1 O No ”,NS 


2070 INPUT "Nombre »”,NS 
2080 INPUT "Domicilio ”,D$ 
2090 INPUT "Telefono Mo TS 
2100 INPUT "Sistema (V=V H S, B=BETA, D=2000> ",SIS 


2110 PRINT INPUT "datos correctos (S/N) ”,Z$ 
2120 IF UPPER$(25><>"5S” THEN 2060 

2130 LSET NOM$=N$ 

2140 LSET CL$=DS 

2150 LSET FES=FECHAS$ 

2160 FOR K=1 TO 5 LSET P$(K>=”" NEXT K 

2170 LSET TEL$=T$ 

2180 LSET SIS$=SIS$ 

2190 PUT 1,NS 

2200 CLOSE 

2210 RETURN 

3000 7 BUSCAR FICHA 
3010 PRINT CLS$,'" BUSQUEDA DE SOCIO” 

3020 PRINT"==================” 

3030 INPUT 'NOMBRE O NUMERO DE SOCIO ”,N5$ 
3040 IF VAL (N$)=0 THEN L1=1 L2=NS GOTO 3060 
3050 IF VAL(N$>)<=NS THEN L1=VAL(N$> L2=VAL(N$> ELSE PRINT CHR$(7) GOTO 50l0U 
3060 OPEN ”R”,1,FS 

3070 FOR K1=L1 TO L2 

3080 GET 1,K1 

3090 IF L1=L2 THEN 3110 

3100 IF INSTR(NOMS,N$>=0 THEN 3190 

3110 PRINT CLS$.PRINT"Socio No ”,K1 


3120 PRINT”"Nombre ” , NOMS 

3130 PRINT"Domicilio ”,CL$ 

3140 PRINT"Telefono ” ,TELS 

3150 PRINT"Peliculas alquiladas el ”, GOSUB 5100 
3160 FOR k=1 TO 5 PRINT"No ”,P$(k> NEXT k 


3170 PRINT PRINT PRINT PRINT 

3180 GOTO 3240 

3190 NEXT K1l 

3200 PRINT PRINT”NO HAY MAS FICHAS” 

3210 CLOSE 

3220 INPUT "PRESIONE <RETURN> PARA VOLVER AL MENU”, Z$ 
3230 RETURN 

3240 INPUT ” INTRODUCIR C=Continuar S=Salir ”,Z$ 
3250 IF UPPER$S(Z$5>)="C” THEN 3190 

3260 IF UPPERS(Z$>)="S” THEN 3210 

4000 “7 GESTION PELICULAS 

4010 PRINT CLS$ 

4020 INPUT "NUMERO DE SOCIO ”,N 

4030 IF N>NS THEN PRINT”NO EXISTE, EL ULTIMO ES EL”,NS GOTO 4190 
4040 OPEN ”R”,1,F$ 

4050 GET 1,N 

4060 PRINT"D ”, NOMS, 

4070 PRINT"C/”,CLS$ 
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4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 


PRINT PRINT"Tel ”, TELS, 

IF SIS$="V” THEN PRINT"Sistema V H S” GOTO 4120 
IF SISS="B” THEN PRINT"Sistema BETA” GOTO 4120 
PRIN"Sistema 2000” 


PRINT PRINT"PELICULAS ALQUILADAS EL ”, GOSUB 5100 

FOR K=1 TO 5 PRINT"Pelicula No ”,k,” - ”,PS(K) NEXT K 

PRINT INPUT '"D=Devolucion, A=Alquiler, S=Salir ”,Z$ 

IF UPPERS(Z$)="D” THEN FOR K=1 TO 5 LSET PS$(K>=""” NEXT K PRINT"PELICULAS CA 


NCELADAS” * GOTO 4140 


4160 IF UPPERS(Z$>)="A” THEN 4210 

4170 LSET FE$=FECHAS PUT 1,N 

4180 CLOSE 

4190 PRINT PRINT INPUT "PRESIONAR <RETURN> PARA VOLVER AL MENU”,ZS$ 
4200 RETURN 

4210 INPUT "NUMERO DE PELICULAS A ALQUILAR ”,NP 

4220 FOR K=1 TO NP PRINT "PELICULA ”,K, INPUT "No ”,PELS 

4230 LSET PS$S(K)>=PELS$S 

4240 NEXT K 

4250 GOTO 4140 

5000 ” CERRAR FICHERO Y FIN PROGRAMA 

5010 PRINT CLSS$ 

5020 OPEN ”0”,2,'NSOCIOS” WRITE 4*2,NS CLOSE 2 ( 

5030 CLOSE 

5040 PRINT"F ICHHROS CERRADOS” 

5050 PRINT PRINT'"NUMERO DE FICHAS ALMACENADAS”, NS 

5060 PRINT PRINT"F I N DE PROGRAMA” 

5070 END 

5100 * Rutinas de conversion de fechas 

5110 PRINT VAL(LEFTS(FE$,2>>,"” / ”,MS(VAL(MIDS(FES$,3,2)>>,” /”,1900+VALCRIGHTS(F 
ES$,2)>»> 

5120 RETURN 

5130 PRINT VAL(LEFTS(FECHAS,2)>>," / ”,MS(VAL(MIDS(FECHA$,3,2)>>)> " /”,1900+VALC(RI 


GHTS (FECHAS, 2)) 


5140 


RETURN 
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CAPITULO 7 
FICHEROS DE ACCESO POR CLAVES 


1. INTRODUCCION 

2. JETSAM 

3. MANEJO DE LOS ARCHIVOS 

4. CREACION DE FICHEROS INDEXADOS 

5. APERTURA Y CIERRE 

6. ESTRUCTURA Y ASIGNACION DE CAMPOS 
7. FUNCIONES JETSAM 

8. GRABACION Y LECTURA DE REGISTRO 


9. EJEMPLO PRACTICO 1 
Base de datos. Proveedores 


10. EJEMPLO PRACTICO 2 
Gestión de biblioteca 
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7. Ficheros de acceso por claves 


1. INTRODUCCION 


Tras la lectura de los dos capítulos anteriores ha podido ver la gran diferencia entre 
los ficheros secuenciales y los de acceso aleatorio o directo. En estos últimos, cada 
registro es identificado por un número, de forma que si se asigna por ejemplo a cada 
cliente un número igual al de registro, la búsqueda es inmediata. En ocasiones y si- 
guiendo con el ejemplo, resulta que para cada cliente existe más de un registro con lo 
que la búsqueda ha de hacerse mediante una expresión más o menos complicada en 
función de la disposición de datos en el archivo. Pero si la búsqueda se realiza por 
cualquier concepto distinto del número de registro, resulta que es necesario realizar 
una de tipo secuencial, puede ver un ejemplo en los dos programas anteriores, don- 
de la búsqueda se realiza en esta forma, desaprovechándose en estos casos el acceso 
directo propiamente dicho. Como resumen podemos indicar que los ficheros aleato- 
rios, son de acceso directo únicamente respecto del número de registros y no del con- 
tenido de cualquier campo, que habrá de realizarse secuencialmente. 


Este problema de acceso ha dado origen a lo que se conoce como ficheros indexados 
o de acceso por claves. Estos ficheros poseen un índice al igual que un libro, que per- 
miten “mirar”? en dicho índice y acceder luego directamente a la información busca- 
da. Se componen pues de dos ficheros uno de índices y otro de datos. 


Ficheros de acceso por claves ( Fichero de índices 
(indexados) Fichero de datos 


A medida que se introducen los datos propiamente dichos, con destino al fichero da- 
tos, el programa va creando un índice de registros con destino al fichero índices, de 
esta forma para localizar posteriormente un determinado registro, bastará con 
introducir el campo clave, el programa leerá el índice y cuando localice la clave 
introducida, accederá directamente al dato. 


Aparentemente este método puede parecer largo y como consecuencia lento, pero 
no es así, tenga en cuenta que el fichero de índices es más corto que el de datos y por 
tanto se localiza antes una clave y su registro correspondiente, que por el método se- 
cuencial visto anteriormente. 
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2. JETSAM 


El Mallard BASIC de los PCW gestiona los ficheros indexados a través de un módu- 
lo denominado JETSAM. También los usuarios de los CPC 6128 tienen acceso a es- 
tos ficheros a través de la instalación descrita en el capítulo 0, de forma que emulan 
en todo momento el trabajo de los PCW. 


JETSAM tiene una limitación de hasta ocho tipos de clave, que corresponden a 
campos de un registro, cuya longitud no excederá de 32 bytes (caracteres) por clave. 


El programa se encarga de seleccionar el o los campos que serán claves, su longi- 
tud y además el orden de prioridad de dichas claves (si hay varias). Esta disposición 
de claves ordenadas según una prioridad (Rango de clave), es necesaria puesto que si 
se realiza una búsqueda por una clave y el dato está repetido, será necesario buscar 
por una segunda clave e incluso una tercera, etc., hasta determinar el dato exacto. 
Este caso es muy típico en la búsqueda de nombres; la primera clave corresponde 
con el primer apellido, si está repetido se busca por la segunda, que corresponde con 
el segundo, si también existen otras personas con apellidos iguales, será necesario 
buscarla por una tercera, que correspondería al nombre, etc. 


3. MANEJO DE LOS ARCHIVOS 


Ya se han podido ver las ventajas de estos archivos respecto de los directos, los in- 
convenientes no son muchos y sin duda el más importante sobre todo para el princi- 
piante, es que poseen un cierto grado de complejidad en su estructuración y manejo, 
unido a un mayor número de comandos, que obliga a no perder de vista el manual 
durante la programación. 


Hay una cuestión que debe ser tenida en cuenta en el trabajo con este tipo de fiche- 
ros y es que el concepto de número de registro no existe ya para el programador; só- 
lo existe para JETSAM que los manipula automáticamente a través de un puntero. 


El programa ordena al módulo que busque un registro con una determinada clave, 
cuando JETSAM la localiza, dirige hacia él su puntero, mientras dicho puntero per- 
manezca apuntando, el registro podrá ser leído y/o modificado. 


El manejo de ficheros de acceso por claves o indexados, se realiza generalmente a 
través de funciones en vez de comandos u órdenes, este es otro rasgo diferencial, res- 
pecto a los aleatorios. Las funciones dan como resultados valores y no acciones co- 
mo las órdenes y como todas las funciones, han de ir acompañadas de una orden 
BASIC, generalmente la de asignación LET o bien de decisión IF. 


LET varY% = función (parámetros) 
IF función (parámetros) condición THEN acción 


Los valores generados por estas funciones y sus significados son los siguientes. 
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Código 
generado Significado 


Operación correcta 


Se ha sobrepasado el final de claves 
Se ha sobrepasado el final de rangos 
Se ha sobrepasado la última clave 


No se ha encontrado la clave 
No está definida la posición actual 


El fichero está bloqueado por otro usuario 

No puede realizarse el bloqueo de escritura (clave) 
No puede realizarse el bloqueo de lectura 

No puede realizarse el bloqueo de escritura 





Resulta muy útil la inclusión en los programas que manejan ficheros indexados, de 
una rutina de comprobación de resultados como la indicada a continuación, y a la 
que debe llamarse cada vez que se utilice una de las funciones, de forma que se pro- 
duzca una información sobre el éxito o fracaso de la operación ejecutada. En dicha 
rutina la variable RESUL habrá obtenido previamente su valor en el programa me- 
diante alguna de las funciones JETSAM que serán estudiadas más adelante. 


9000 “” RUTINA DE COMPROBACION DE RESULTADOS DE FUNCIONES JETSAM 
9010 * 

9020 DATA O,OPERACION CORRECTA, 101,Se ha sobrepasado el final de claves 
9030 DATA 102,Se ha sobrepasado el final de rangos 

9040 DATA 103,Se ha sobrepasado la ultima clave 

9050 DATA 105,No se ha encontrado la clave 

9060 DATA 115,No esta definida la posicion actual 

9070 DATA 130, El fichero esta bloqueado por otro usuario 

9080 DATA 133, No puede realizarse el bloqueo de escritura (CLAVE) 
9090 DATA 132, No puede realizarse el bloqueo de lectura 

9100 DATA 133, No puede realizarse el bloqueo de escritura 

9110 RESTORE 9020 FOR k=1 TO 10 

9120 READ COGEN, TEXTOS 

9130 IF RESUL=COGEN THEN PRINT TEXTOS GOTO 9150 


9140 NEXT K 
9150 RETURN 


4. CREACION DE FICHEROS INDEXADOS 


Tal como se vió en los capítulos anteriores los ficheros secuenciales y de acceso di- 
recto se crean con la orden OPEN si previamente no existían, en los indexados por el 
contrario antes de abrir un fichero, este ha debido ser creado, además es necesario 
antes de comenzar a trabajar el reservar un espacio de memoria suficiente para que 
JETSAM pueda realizar el mantenimiento de índices, ya que este se realiza en la 
propia memoria y solo es pasado al disco cuando se produce un cierre, o bien con 


una orden específica para tal fin. 
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La reserva de memoria mencionada se realiza en bloques de 128 bytes denominadas 
tampones (buffers), que en condiciones normales bastará con 5 ó 6. Debe tenerse en 
cuenta que una reserva muy elevada para estos buffers, supone una merma en la ca- 
pacidad total del programa, no obstante una K equivale a 8 buffers. 


La orden de reserva de tampones es precisamente BUFFERS seguida del número de 
ellos que quiera reservarse. 


BUFFERS n? de tampones 


Esta orden debe utilizarse al comienzo del programa, antes de realizar operaciones 
con ficheros. 


Para la creación de un fichero indexado, se utiliza la orden CREATE, cuya forma 
general es: 


CREATE  n' fichero, “nombre fichero datos””, “nombre fichero claves”, 2, var. 
de longitud del fichero. 


— n? fichero: Tiene el mismo significado que en los anteriores, identificar cada 
fichero con un número. 


— “nombre fichero datos'*: Nombre que recibirá el fichero destinado a contener 
los datos. 


— “nombre fichero claves””: id. del de claves. 
— 2: Número obligatorio (!). 


— var. long. registro: Es una variable numérica que contiene la longitud de los re- 
gistros y que debe definirse previamente. 


Por supuesto los dos nombres entre comillas pueden ser sustituidos por variables al- 
fanuméricas y la variable de longitud por un número. 


La orden CREATE puede incluirse en un programa o ser utilizada como orden di- 
recta, los efectos son idénticos. Si se opta por incluirla en un programa solo debe 
usarse una vez, para ello será necesario controlar la existencia de los ficheros antes 
de ser creados, si no existen pasar a su creación pero en caso de existir la orden debe 
omitirse. Para ello debe utilizarse la orden FIND$ descrita en los capítulos ante- 
riores. En caso de utilizarse como orden directa debe tenerse en cuenta que el fichero 
queda abierto, por lo que si no va a ser utilizado inmediatamente, debe procederse a 
su cierre. 


La longitud de los registros se establece en la misma forma que en los aleatorios, uti- 
lizando la orden FIELD que define la longitud de cada campo, pero la longitud de 
un registro es ahora igual a la suma de la de sus campos más dos, debido a que 


Long.registro = Y long.campos + 2 


JETSAM reserva 2 bytes de cada registro para su uso, realizando internamente la in- 
terrelación registros-claves. 
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5. APERTURA Y CIERRE 


La apertura de un fichero indexado se realiza con la orden básica OPEN, como en 
los anteriores, pero en este caso va seguida del indicador **K”” (clave = key), al igual 
que en los otros tipos de fichero se debía indicar ““R”” (aleatorios) y **O””, **T”” (se- 
cuenciales). 


La orden completa es: 
OPEN “K”, n* fichero, “nomfich.datos””, “*nomfich.claves””, 2, var. longitud 


como ve su forma se ajusta a la orden de creación, siendo válidas las observaciones 
comentadas anteriormente. 


El número de fichero no tiene porqué coincidir con el utilizado durante la creación, 
la orden OPEN es la que determina la identificación del fichero y no la de creación, 
es decir cualquier referencia posterior al fichero llevará el número indicado en 
OPEN. 


El cierre se realizará con la orden CLOSE pero obligatoriamente seguida del número 
de fichero, por tanto no existe la orden CLOSE para cierre de todos los ficheros. 


Dado que la actuación de los índices se va realizando en memoria y no son grabados 
en el fichero de claves hasta que el fichero de datos es cerrado con el CLOSE corres- 
pondiente, cualquier incidencia fortuita, como el olvido de dicho cierre, un fallo en 
el suministro de energía, etc., puede dar al traste con el fichero de claves y dejar co- 
mo consecuencia ““inútil”? el de datos o dicho de otra forma más acertada, el fichero 
de datos será inconsistente (no correspondencia claves-datos). 


Para paliar la situación descrita que lejos de ser poco probable y por las leyes de 
Murphy será frecuente y en el momento más inoportuno, se dispone de la orden 
CONSOLIDATE que permite grabar el contenido de los buffers de claves de memo- 
ria, en el fichero de claves del disco. Esta orden no implica un cierre del fichero, solo 
la actualización en disco descrita, es decir equivale a un CLOSE seguido de un 
OPEN. 


6. ESTRUCTURA Y ASIGNACION DE CAMPOS 


Se realiza de la misma forma que en los aleatorios, los campos se definen con 
FIELD ignorando totalmente los 2 bytes reservados por JETSAM. La asignación se 
realiza con LSET, RSET y MID$ como se explicó en el capítulo anterior. 


7. FUNCIONES JETSAM 


Todo lo visto hasta ahora coincide sensiblemente con los ficheros de acceso directo, 
son las funciones JETSAM lo que constituye su gran diferencia en el manejo de los 
ficheros indexados, a continuación se describen dichas funciones. 
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— Funciones generales 


—- ADDREC. Sirve para escribir los datos almacenados en las variables de campo 
(definidas en FIELD) en el siguiente registro al último que exista en el fichero. El 
puntero queda señalando a la nueva posición y se añade la clave del nuevo registro 
en el fichero de claves (temporalmente en memoria). Su forma general es 


Var. = ADDREC (n' fichero, 2, rango, clave) 


Dado que ADDREC es una función se ha utilizado la asignación LET (implícita) pa- 
ra introducir el código generado en la variable numérica, que denominamos genéri- 
camente VAR. 


El valor incluido en “clave”? (campo), es situado de acuerdo con el “rango” indica- 
do, actualizándose dicho rango de claves. 


Si el fichero ha de estar clasificado por varios claves, detrás de la instrucción descri- 
ta debe utilizarse la siguiente. 


var. = ADDKEY (n' fichero, 0, rango, clave, n* registro) 


Su forma es similar a la anterior, pero para poder determinar el número de registro 
que utilizó ADDREC, ya que debe incorporarse una clave nueva en el registro, será 
necesario utilizar la función 


var. = FETCHREC (n2 fichero) 


la variable indicada en la sentencia tomará el número de registro al que señala el 
puntero. Dicha variable y su contenido podrá ser usado en la función anterior y en 
otras. 


Debe tenerse en cuenta que ADDREC añade nuevos registros pero no permite modi- 
ficar registros ya existentes (intermedios), para ello se utilizan las órdenes GET y 
PUT para leer y escribir respectivamente utilizando la forma general. 


GET n? fichero 
PUT n? fichero 


Evidentemente, antes de utilizar PUT se habrán cargado las variables de campo con 
los datos correspondientes, tal como se hacía en los ficheros aleatorios. 


Al igual que la función FETCHREC nos indicaba el número de registro al que apun- 
taba el puntero, existe otro similar que permite conocer el rango de la última clave 
introducida, su forma general es 


var. = FETCHRANK (n* de fichero) 


Así como FETCHRANK nos devuelve el rango, FETCHKEY$ devuelve el conteni- 
do de la última clave, su forma general es 
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var $ = FETCHKEYS (n* de fichero) 


El borrado de claves es siempre una operación delicada. Si un registro solo dispone 
de una clave y esta es borrada, implica que dicho registro queda eliminado, no 
físicamente, pero sí prácticamente puesto que la no existencia de su clave imposibili- 
ta definitivamente su acceso. 


En el caso de cambiar una clave siempre es preferible previamente crear la nueva, 
para posteriormente borrar la vieja. La adición de la nueva se realizará mediante la 
función ADDKEY descrita anteriormente y el borrado de la vieja mediante 


var. = DELKEY (n* fichero, 0, posición) 


donde el parámetro posición es optativo, de forma que si no se indica se borrará la 
que señale el puntero, por ello previamente habrá de situarse el puntero convenien- 
te, mediante las funciones de búsqueda, descritas en el siguiente epígrafe. 


La utilización de claves repetidas es optativa, si se desea impedir la repetición debe 
utilizarse la función 


var. = RANKSPEC (n' fichero, n* clave, 0) 
— Funciones de búsqueda 


Tanto en los ficheros secuenciales, como aleatorios, todo lo relativo a la búsqueda 
de datos pasa forzosamente por el concepto de número de registro. En los secuen- 
ciales se busca desde el principio, uno tras otro, el registro que cumpla las condi- 
ciones indicadas, en los aleatorios se puede proceder de forma análoga, o bien acce- 
der a un registro determinado, conociendo su número. 


En los ficheros indexados, el concepto de número de registro como se ha dicho, no 
es necesario, la búsqueda se realiza a través de las claves, de forma'indirecta, JET- 
SAM se encarga de encontrar el registro que obedece a las claves indicadas, para ello 
se dispone de varias funciones, que permiten conocer la existencia de registros con la 
rrisma clave, claves distintas dentro de un rango o bien la no existencia de la clave 
buscada, pasemos a una descripción somera de las mismas. 


SEEKKEY permite buscar en el fichero el “*primer”” registro cuya clave se corres- 
ponda con la indicada, dentro del rango dado. Debe tenerse en cuenta que existe un 
solo fichero de claves, a partir de la última clave de un rango, viene la primera clave 
del siguiente rango y así sucesivamente. 


La búsqueda en un rango puede dar positiva en él, o en otro rango, siendo el resulta- 
do evidentemente distinto, será interesante conocer no sólo si se ha encontrado, sino 
también donde. 


La forma general de la función es 
var. SEEKKEY (n* fichero, 0, rango, clave) 
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Un problema común dentro de un fichero es la existencia de varios registros, con la 
misma clave (nombres repetidos, etc), dado que SEEKKEY busca el primero, si este 
no es el deseado o bien es preciso conocer todos los que correspondan a esa clave, 
debe utilizarse SEEKNEXT que recorre todo el fichero buscando todos los registros 
que correspondan a la clave y rango dados. 


Su forma general es 
var. = SEEKNEXT (n' fichero, 0, origen búsqueda) 


El origen de búsqueda permite realizar la misma desplazando el puntero al lugar in- 
dicado. Este origen es opcional, de forma que si se omite, la búsqueda se realizará a 
partir de la posición a la que en ese momento señale el puntero. 


Existe otra función idéntica a la anterior y con la misma sintaxis, la diferencia es que 
la búsqueda la realiza por la clave anterior a la indicada. 


Su forma general es 
var. = SEKKPREV (n' fichero, 0, origen búsqueda) 


Una última función, útil en el caso de claves repetidas, es SEEKSET, esta función va 
saltándose las claves que se repiten, hasta encontrar una nueva, su síntaxis es 


var. = SEEKSET (n* fichero, 0, origen de búsqueda) 


como puede verse su sintaxis es idéntica a SEEKNEXT. 


8. GRABACION Y LECTURA DE REGISTROS 


Las órdenes de grabación y lectura en los ficheros indexados son las mismas que en 
los aleatorios, PUT y GET respectivamente. La forma de utilizarlas, asignación de 
variables de campo, etc., es también idéntica, lo único que varía es que aquí no se 
manejen números de registros sino que ambas operaciones se realizan sobre el re- 
gistro al que apunta el puntero en ese momento y por tanto su síntaxis es simplemen- 
te 


GET n? fichero (leer) 
PUT n' fichero (grabar) 


Sin duda la mera descripción de las sentencias y funciones, que permiten trabajar 
con ficheros indexados, no es suficiente para permitir su uso inmediato. Un ejemplo 
práctico permite aclarar los conceptos y fijar ideas, a tal fin en los siguientes 
epígrafes se han incluido dos programas completos. El primero constituye una base 
de datos para proveedores y el segundo permite la gestión de una biblioteca, progra- 
ma que ya fue desarrollado anteriormente con ficheros secuenciales y que permite 
ahora su estudio comparativo. 
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9. EJEMPLO PRACTICO 1. Base de datos. Proveedores 


Al igual que en los capítulos precedentes y a modo de colofón se incluye un ejemplo 
de utilización de ficheros indexados. Se trata de un fichero de proveedores que reco- 
ge los datos habituales, de nombre, dirección, producto suministrado y precio ac- 
tual. El programa permite la búsqueda por nombre, producto y precio, este último 
definido por un entorno (máximo y mínimo). El programa aún siendo específico en 
el sentido expuesto, resulta de fácil adaptación a cualquier otro caso, como los estu- 
diados en capítulo anteriores, agenda, biblioteca, etc., su mayor potencia se da sin 
duda dentro de los programas de gestión, para los cuales los ficheros indexados re- 
sultan los más apropiados. 


La estructura básica del programa consiste en un Menú director (menú principal) del 


que parten cuatro rutinas principales. 
NUEVA BASE 
DATOS 
MODIFICAR > 
BASE YA EXISTENTE 
BUSCAR DATOS 
FIN DE PROGRAMA 


La primera de las rutinas principales permite crear una o varias bases de datos 
(ficheros) distintas, obviamente cada uno de estos ficheros de datos, irá acompaña- 
do de su correspondiente fichero de índices, como verá en la rutina 3000, el fichero 
consta de 6 caracteres como máximo y el de indice, tiene el mismo nombre antepo- 
niendo “*IN””, por ejemplo 














MENU 
PRINCIPAL 






Fichero de datos “COMPRA” 
Fichero de indice  “INCOMPRA” 


de esta forma, en caso de utilizar varios ficheros de datos, es fácil identificar sus 
correspondientes de índices. 


Todas las rutinas y subrutinas van señaladas con comentarios a fin de facilitar el se- 
guimiento del programa. 


Si no desea teclear el listado, dispone de un disco que contiene este y Otros progra- 
mas desarrollados en el libro. 
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A DIS 
20" AROS BASE DE DATOS. PROVEEDORES AMAS OOOO ok 
30 7 ARROERRROOAXX A — Fichero de acceso por claves AMARO 
40 7 AMS lO PROVE” SS 
A IIS 
60 BUFFERS 6 

70 CLS$=CHRS (27 ) +” E” +CHR$(27)+”H” 

80 DEF FN LOC$(F, C)>=CHR$ (27) +" Y" 4+CHRS (324+F)+CHR$ (32+C) 

90 "MENU PRINCIPAL 

100 7 

110 PRINT CLSS$ 

120 PRINT FN LOC$S(5,30);”M E N U” 

130 PRINT FN LOC$(6,29)>;"” 

140 PRINT FN LOC$(8,18>;”1. CREAR UNA NUEVA BASE DE DATOS” 

150 PRINT FN LOC$(10,18>;”2. MODIFICAR BASE DE DATOS CREADA” 

160 PRINT FN LOC$(12,18)>;'”3. BUSCAR DATOS” 

170 PRINT FN LOC$(14,18>;”4. FIN DE PROGRAMA” 

180 PRINT FN LOC$(21,18);"Seleccionar opcion ”;: INPUT OP 

190 IF OP<1 OR OP>4 THEN 90 

200 IF OP=4 THEN 300 

210 ON OP GOSUB 1000, 1270,4000 

220 GOTO 90 

SUOMI a ai ARE rO O OS Sas FIN DE PROGRAMA 

310 PRINT CLSS$ 

320 PRINT FN LOC$(12,25);”F 1  N” 

330 * z 

340 CLOSE 1 

350 END 

OO E RR E NS a IMPRIMIR REGISTRO 

410 7 

420 PRINT CLS$ 

430 PRINT "Nombre ......... ”; NOMS 

440 PRINT "Direccion ...... ”;DIR1S 

450 PRINT " —---»--—-——. ems. ”;DIR2S 

460 PRINT "--—-—-—-—-—-—-—-—-—-—-—— ...... ”; DIR3S 

470 PRINT "Telefono ...... ”; TELS 

480 PRINT "Producto ...... ”; PROS 

490 PRINT "Precio ........ ”; PRES 

500 PRINT: PRINT: PRINT: PRINT”"Presione una tecla para continuar” 

5b10 1F INKEYS$="”" THEN 510 

520 RETURN 

1000 aa CREACION DE LA BASE DE DATOS 

1010 7 

1020 PRINT CLS$: INPUT "NOMBRE DE LA BASE DE DATOS (Max. 6 caracteres)” 
, FDS 

1030 IF LEN(FDS$>>6 THEN 1020 

1040 FD$=UPPERS(FDS) : FI$="” IN” +FDS 

1050 CREATE 1,FD$,FI$,2 

1060 FIELD 1,25 AS NOM$,25 AS DIR1$,15 AS DIR25$,15 AS DIR3$5,15 AS TELS 
,20 AS PROS,6 AS PRES 

1070 PRINT: PRINT” FICHEROS CREADOS” 

1080 PRINT”"FICHERO DE DATOS = ”;FDS 

1090 PRINT”"EICHERO DE INDICES= ”;FIS 

1100 PRINT; PRINT: INPUT ” INTRODUCIR DATOS (S/N> ";,Z$ 

1110 IF UPPERS(Z$>=”S” THEN 1140 

1120 CLOSE 1 

1130 RETURN 

LIAO ra SAN a A si ENTRADA DE DATOS 

1150 GOSUB 2280 

1160 IF UPPERS(XNOMS>="”FIN” THEN 1120 ELSE *1150 

AT a eta ABRIR FICHEROS 

1180 - 

1190 PRINT CLSS$ 

1200 INPUT "Nom. fichero datos (RETURN si es conocido por el pgm.)> ”;F 
FS 
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1210 
1220 
1230 
1240 
1250 


IF LENC(FFS>)<7 AND FFS<>”” THEN FD$=FFS$ 

IF FINDS(FDS>=”” THEN PRINT”NO EXISTE ESE FICHERO ”;FD$:GOTO 1200 
FI$="IN"”+FDS 

OPEN ”K”,1,FDS,FIS,2 

FIELD 1,25 AS NOM$,25 AS DIR1$,15 AS DIR2$,15 AS DIR3$,15 AS TELS 


,20 AS PROS,6 AS PRES 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 


RETURN 

a a ns rs areas MANEJO DE REGISTROS 
GOSUB 1170 

GOSUB 2000 

IF OP1=5 THEN 1340 

ON OP1 GOSUB 2110,2280,2620, 2510 

GOTO 1300 

CLOSE 1 


SO NA MENU DE MANEJO DE REGISTROS 


PRINT CLSS$ 

PRINT FN LOC$(8,18)>;”1. VER REGISTROS” 

PRINT FN LOC$(10,18>;”2. AGREGAR REGISTROS” 

PRINT FN LOC$(12,18)>;”3. MODIFICAR REGISTROS” 
PRINT FN LOC$(14,18)>;”4. BORRAR REGISTRO” 

PRINT FN LOC$(16,18)>;”5. VOLVER AL MENU PRINCIPAL” 





PRINT FN LOC$(21,18)>;”Seleccionar opcion ”;: INPUT OP1 
IF OP1<1 OR OP1>5 THEN 2080 

RETURN 

” Examen de registros 

PRINT cls$ 


PRINT FN LOC$S(8,18>;”1. NOMBRES (orden alfabetico)” 
PRINT FN LOC$(10,18>;”2. PRODUCTOS (orden alfabetico»)” 
PRINT FN LOC$S(12,18>;”3. PRECIOS (de menor a mayor)” 
PRINT FN LOC$(21,18);”Seleccionar opcion ”;: INPUT OP2 
IF OP2<1 OR OP1>3 THEN 2160 

RES=SEEKRANK(1,0,0P2) 

IF RES<>0 THEN GOTO 2270 

GET 1 

GOSUB 400 

RES =SEEKNEXT (1,0) 

IF RES=102 OR RES=103 THEN 2270 

GET 1 

GOSUB 400 


GOTO 2220 
RETURN 
TARA Carga de datos y asignacion variables de campo 





PRINT CLS$: PRINT” Introducir FIN para terminar” 
INPUT '"Nombre ..... =.. *”;XNOMS 
IF UPPERS(XNOMS$>="”FIN” THEN 2500 


LSET NOMS=XNOMS 

INPUT "Direccion ...... ”;XDIR1S 
LSET DIRi$=XDIR1S 

INPUT at ";XDIR2S 
LSET DIR2$=XDIR2S 

INPBE 77-20 A de *";XDIR3S 
LSET DIR3$=XDIR3S 

INPUT "Telefono ...... ”;XTELS 

LSET TELS=XTELS 

INPUT "Producto ...... ”; XPROS 

LSET PROS$=XPROS 

INPUT *Precio ........ ”; XPRES 


LSET PRES$S=XPRES 
RES=ADDREC(1,2,1, NOMS) 
rango=FETCHREC (1) 
RES=ADDKEY (1, 0,2,PROS$, rango)? 
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2490 
2500 
2910 
2520 
2530 
2540 
2550 
2560 
2970 
2580 
2590 
r” 

2600 
2610 
2620 
2630 
2640 
2050 
20660 
2070 
20680 


RES=ADDKEY(1,0,3,PRES$, rango) 
RETURN 

7 Borrar registro 

PRINT cls$ 

GOSUB 2960 

IF OP3=4 THEN 2610 
R=FETCHREC(1)> 
RES=DELKEY (1,0, 1, NOMS, R) 
RES=DELKEY (1,0,2,PROS, R)> 
RES=DELKEY(1,0,3,PRES, R) 
PRINT.PRINT”Registro BORRADO !, presionar una tecla para continua 


IF INKEYS="”' THEN 2600 

RETURN 

7 Modificacion de registros 

GOSUB 2960 

IF OP3=4 OR CON=1 THEN 2950 

RNOMS=NOMS 

RPRES=PRES 

RPRO$=PROS 

PRINT CLSS. PRINT” Introducir datos a modificar o RETURN para no al 


terar” 


2690 
2700 
2710 
2120 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 


PRINT”Nombre actual ”; NOMS 

INPUT "nuevo ”; NNOMS 

IF NNOMS$<>”'” THEN LSET NOMS=NNOMS 
PRINT"Direccion actual ”;DIR1$ 

INPUT "nueva ”;NDIR1S 

IF NDIR1$<>”” THEN LSET DIR1$=NDIR1S5 
PRINT” Id. actual ”,DIR2S 

INPUT "nueva ”,NDIR2$ 

IF NDIR2$<>”” THEN LSET DIR2$=NDIR2S 


PRINI” Id. actual ";DIR3S$ 

INPUT "nueva ”;NDIR3$S 

IF NDIR3S<>”"” THEN LSET DIR3S=NDIR3S$5 
PRINT”Producto actual ”;PROS$ 

INPUT *”nuevo ”; NPROS 

IF NPROS<>”” THEN LSET PROS=NPROS 
PRINT”Precio actual ”;PRES 

INPUT ”nuevo ”;NPRES 

IF NPRES<>”” THEN LSET PRES=NPRES 
R=FETCHREC(1)> 
RES=DELKEY(1,0,1,RNOMS, R> 

RES=DELKEY (1,0,2,RPROS, R> 
RES=DELKEY (1,0,3,PRES, R) 
RES=ADDREC(1,2,1,NOMS)> 

R=FETCHREC (1) 

RES=ADDKEY (1,0,2,PROS,R> 

RES=ADDKEY (1,0,3,PRES, R> 

RETURN 

PASA e RANA A A DN ta MENU DE BUSQUEDA 


CON=0 

PRINT CLS$: CONTROL$="”»” 

PRINT FN LOC$S(5,14>;”M E N U DE BUSQUE D A” 
PRINT FN LOCS(6, 14)>;”=============================-” 
PRINT FN LOC$(8,18>;”1. BUSCAR POR NOMBRES” 

PRINT FN LOC$(10,18>;”2. BUSCAR POR PRODUCTOS” 

PRINT FN LOC$(12,18)>;”3. BUSCAR POR PRECIOS” 

PRINT FN LOC$(14,18);”4. SALIR DE ESTE MENU” 

PRINT FN LOC$(21,18);"”Seleccionar opcion ”;: INPUT OP3 
IF OP3<1 OR OP3>4 THEN 3060 

IF UPPERS(CONTROLS$>="”S'” OR OP3=4 THEN 3100 

ON OP3 GOSUB 3110,3260,3410 

RETURN 

7” Busqueda por nombres 
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3120 


3130 INPUT ” Introducir nombre ”; BNOMS$ 

3140 BNOMS=BNOMS+SPACES (25-LEN(BNOMS ) > 

3150 RES=SEEKKEY (1,0, 1, BNOMS > 

3160 IF RES<>0 THEN CON=1: PRINT"”No este ese nombre o es incorrecto”: 
GOTO 3230 

3170 GET 1 

3180 GOSUB 400 

3190 GOSUB 3560 

3200 IF UPPERS(CONTROLS>="S” THEN 3250 

3210 RES=SEEKNEXT(1,0)> 

3220 GOTO 3160 

3230 PRINT”PRESIONE UNA TECLA PARA CONTINUAR” 

3240 IF INKEY$="” THEN 3240 

3250 RETURN 

3260 “ Busqueda por productos 

3270 

3280 INPUT "nombre del producto ”;BPROS 

3290 BPROS=BPROS+SPACES (20-LEN(BPROS) > 

3300 RES=SEEKKEY(1,0,2,BPROS$) 

3310 IF RES<>0 THEN CON=1:PRINT"No existe ese producto o es incorrecto 
”:GOTO 3380 

3320 GET 1 

3330 GOSUB 400 

3340 GOSUB 3560 

3350 IF UPPERS(CONTROLS)>="S” THEN 3400 

3360 RES=SEEKNEXT(1,0) 

3370 GOTO 3310 

3380 PRINT”PRESIONE UNA TECLA PARA CONTINUAR” 

3390 IF INKEY$="' THEN 3390 

3400 RETURN 

3410 ” Busqueda por precios 

3420 

3430 INPUT "Limite superior de precios ”;PS% 

3440 INPUT "Limite inferior de precios ”;PI% 

3450 FOR P%=PI% TO PSZ 

3460 PS=STRS(P%): PS=RIGHTS(PS$, LENC(PS)>)-1): PS=PS+SPACES (6-LEN(PS) > 
3470 RES=SEEKKEY(1,0,3,P$) 

3480 IF RES<>0 THEN PRINT FN LOC$(10,60);”E S P E R E”,P%:GOTO 3540 
3490 GET 1 

3500 GOSUB 400: GOSUB 3560 

3510 IF UPPERS(CONTROLS>="S” THEN P%=PS%: GOTO 3540 
3520 RES=SEEKNEXT(1, 0) 

3530 GOTO 3480 

3540 NEXT P% 

3545 PRINT FN LOC$(25,1> 

3550 RETURN 

3560 “ Comprobacion de registros 

3570 PRINT 

3580 INPUT "REGISTRO CORRECTO (S/N) ”; CONTROLS 
3590 IF UPPERS(CONTROL$><>'"S' AND UPPERS(CONTROLS><>”N” THEN 3570 
3600 RETURN 

BOOM ds NI BUSQUEDA DE REGISTROS 
4010 “7 

4020 GOSUB 1170 

4030 GOSUB 2960 

4040 IF OP=4 THEN 4080 

4050 PRINT 

4060 INPUT "Continuar la busqueda (S/N) ”;Z$ 

4070 IF UPPERS(Z$)="S” THEN 4030 

4080 CLOSE 1 

4090 RETURN 

4100 RETURN 
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10. EJEMPLO PRACTICO 2. Gestión de biblioteca (JETSAM) 


En el capítulo cinco se desarrolló un programa de gestión de biblioteca, utilizando 
ficheros secuenciales no muy apropiados a este tipo de aplicación, por ello se incluye 
aquí una nueva versión de dicho programa, utilizando ficheros de acceso por claves 
(indexados). 


Se ha optado por la forma más simple de presentación de textos, dejando al lector la 
posibilidad de su mejora. Se ha tratado en todo momento de acortar en lo posible la 
longitud de los programas con el fin de facilitar su paso al ordenador. 


Como verá el programa se ha estructurado como una colección de subrutinas, direc- 
cionadas desde un corto programa principal (300-450) precedido de una inicializa- 
ción de variables y funciones, utilizadas por todo él (80-200). 


Cada subrutina está convenientemente etiquetada de forma que resulta fácil su estu- 
dio por separado. 


Con el fin de facilitar el seguimiento del flujo del programa se incluyen a conti- 
nuación los diagramas tanto del programa principal como de las cinco opciones bá- 
sicas del Menú principal. 


FLUJO PROGRAMA PRINCIPAL 


ON ERROR 


INICIAR VAR 
Y FUNCIONES 


CONTROL EXISTENCIA 
DE FICHEROS 


Crear nuevo fichero 














1 
2 Introducir datos 
PRINCIPAL 3 Lista libros 
4 Buscar/modificar/borrar 
S FIN 


CONTROL 
MENU 
CIERRE DE 
FICHEROS 


ESPERA 







CIERRE DE 
FICHEROS 







FIN 
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FLUJO OPCION 1 NUEVO FICHERO 






CREAR NUEVO 
FICHERO 


> 
SI 
CREAR NUEVO 
FICHERO 
RETURN 
MENU 





FLUJO OPCION 2 INTRODUCIR DATOS 


ESE EEE 
(ENTRADA DE DATOS j 


ABRIR FICHEROS 


INTRODUCIR DATOS 
POR TECLADO 


ASIGNACION VARIA- 
BLES DE CAMPO 


NO 


RETURN 
MENU 
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FLUJO OPCION 3 LISTADO DE LIBROS 


LISTAR LIBROS 
SUBMENU 
CONTROL 
OPCIONES 










P = Pantalla 
I = Impresora 


RETURN 
MENU 









FLUJO OPCION 4 BUSCAR/CORREGIR/BORRAR 







OPCION 4" 


LIBRO? 


LIBRO BUSCADO] (POR TITULO) 


LIBRO LIBRO 
ANTERIOR CORRECTO 
SUBMENU 
BORRAR 

¡3 


L SI RETURN 
A MENU 
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LIBRO 
SIGUIENTE 













CONTINUAR 






CORREGIR 











FLUJO OPCION 5 FIN DE LA TAREA 





FIN DE TAREA 


CERRAR 
FICHEROS 
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10 

20 

30 

40 

50 

60 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
A P 
200 
210 
220 
230 
240 
250 
260 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
500 
510 
520 
530 
540 
550 
560 
3570 
580 
590 
600 
610 
620 
630 
640 
650 


MELLA 
TO RMORkk GESTION DE BIBLIOTECA CON JETSAM AxXokkxkxk 
"ROMA Fichero de acceso por claves AIOROROJOOK 
ES ”BIBLIOJS” ES 
EAS 
ON ERROR GOTO 3110 

a E rn edo A O AA INICIALIZACION 


CLS$=CHR$ (27)+"E"+CHRS(27)+"H” 
MASL INEAS=CHR$ (27) +" vw” : MENOSL INEAS=CHR$ (27) +”w” 
IVIDEOS=CHR$ (27) +"p”: NVIDEOS=CHR$(27)+"q” 
CONT$="PRESIONE UNA TECLA PARA CONTINUAR” 
SINO$=IVIDEOS+” PRESIONE S o N (si/no)> ”+NVIDEOS 
S$=STRINGS(75,”-"> 

CONTINUA$="DESEA CONTINUAR” 

IMPRES="PRESIONAR <P> PARA IMPRESORA, CUALQUIER OTRA PAR 
ANTALLA” 

SCROLL$="UTILZAR <ALT>-<S> PARA DETENER SCROLL PANTALLA” 
ESPACIOS="PRESIONAR ESPACIO PARA VOLVER AL MENU” 
f0%=0:f1%=1 

F$="LIBROS. DAT”: FI$="” ILIBROS. DAT” 


LI$="” INDICE LIBRERIA” 

BUFFERS 10: LONG%=92 

PRINT MASLINEAS 

Pal O DIRECIONAMIENTO SUBRUTINAS 
GOSUB 500 

GOSUB 610 

ON OP% GOSUB 800,900,1200,2000,410 

GOSUB 3050 

PRINT CLS$ 


PRINT ESPACIOS 
GOSUB 690 
IF K$="” ” THEN 320 


GOSUB 3050 

PRINT MENOSLINEAS 
END 
ADS AAN AS A EU a ada MENU 
PRINT cls$ 

PRINT TAB (35>IVIDEOS+” MENU  ”+NVIDEOS: PRINT 
PRINT TAB(30)”1 - CREAR NUEVO FICHERO”: PRINT 

PRINT TAB(30>”2 -— Introducir datos”: PRINT 

PRINT TAB(30)”3 -— Listar libros”: PRINT 

PRINT TAB(30>”4 - Buscar / Modificar / Borrar”.PRINT 


PRINT TAB(30>)”"5 -— F I N”: PRINT 

MENUZ%=5 

RETURN 

TERA A SR CONTROL ENTRADA MENU 
Ks="» 

WHILE K$S=”"” OR VAL(K$><1 OR VALCKS)>MENU% 
K$=INKEYS$ 
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660 
670 
680 
690 
700 
710 
720 
800 
810 
820 
830 


WEND 
OP%=VAL(K5) 


RR E AA As da GRS: ar RUTINA DE ESPERA 
Ks="": WHILE K$="”: KS=INKEYS: WEND 
RETURN 
AI AE CREACION DE NUEVO FICHERO 


PRINT CLS$;'CREANDO NUEVO FICHERO” 
PRINT :PRINT”PRESIONAR <N> PARA PARAR U OTRA TECLA PARA 


CONTINUAR” 


840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1200 
1210 
1220 
1230 
1240 
1250 


1260- 


1270 


GOSUB 690 

IF UPPERS(K$>)="N'" THEN 870 ELSE PRINT CLS$ 
CREATE F1%,F$,F1$,2,LONG%, LIS 
PRINT CLS$ 
CLOSE F1% 
RETURN 

O ARA A RUTINA ENTRADA DE DATOS DE REGISTRO 
PRINT CLS$S 
PRINT TAB(5>”I NTRODUZCA LOS DATOS” 
GOSUB 3000 
PRINT 
LINE INPUT*AUTOR (Apellidos, Nombre) ”;¡AS 
LINE INPUT”TITULO DEL LIBRO ...... »;TS 
LINE INPUT"MATERIA ,......... MS 
LSET AUTORS=AS: LSET TITULOS=T$:'LSET MATS$=M5 

IF FO%=1 THEN RETURN 

ERR%=ADDREC (F1%,0,0, UPPERS(LEFTS(AUTOR$,6)>))>) 

IF ERR%<>0 THEN GOSUB 1130 

RN%=FETCHREC(F1%) 

ERR%=ADDKEY (F1%, 0,1, UPPERS(LEFTS(TITULOS,6>>,RN%)> 

IF ERR%<>0 THEN GOSUB 1130 

ERR%=ADDKEY (F1%, 0,2, UPPERS(LEFTS(MATS,0)),RN%) 

IF ERR%<>0 THEN GOSUB 1130 

PRINT 

PRINT CONTINUAS. PRINT SINOS 

GOSUB 690 

IF UPPERS(K$>="”S” THEN 950 

RETURN 
AN AA rs y Aa CONTROL DE ERRORES 
PRINT 
PRINT”SE HA DETECTADO EL ERROR CODIGO ”, ERR% 
RETURN 

A ao al eE . LISTADO DE LIBROS 
PRINT CLS$+IVIDEOS+” LISTADO DE LIBROS de 
PRINT NVIDEOS 
GOSUB 3000 
PRINT "LISTAR POR:” 
PRINT TAB(9>;”1 -— AUTOR” 
PRINT TAB(9)>;”2 - TITULO” 
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1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
10680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1700 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


PRINT TAB9);"3 — MATERIA” 
MENU%=3: PRINT 

GOSUB 610 

PRINT CLS$ 

ON OP% GOSUB 1400,1600,1800 


PRINT"QUIERE VOLVER AL MENU?”: PRINT SINOS 

GOSUB 690 

IF UPPERS(K$)=”N"” THEN PRINT CLS$:GOTO 1250 

0P%=0 

RETURN 

AI O OA LISTADO POR AUTORES 
PRINT CLS$ 

PRINT IVIDEOS+” LISTADO POR AUTORES ”:PRINT NVIDEOS 
PRINT CLS$; IMPRES$ 

PRINT SCROLL$ 

GOSUB 690 

IF UPPERS$(KS>)="P” THEN PR%=1 ELSE PR%=0 

PRINT CLS$ 

ERR%=SEEKRANK(F1%, 0, 0) 

IF ERR%<>0 THEN GOSUB 1130 

WHILE ERR%=0 OR ERR%=101 

GET F1% 

GOSUB 4000 

ERR%=SEEKNEXT (F1%, 0) 

WEND 

RETURN 

A LISTADO POR TITULOS 
PRINT CLSS5 

PRINT IVIDEOS+” LISTADO POR TITULOS ”:PRINT NVIDEOS 
PRINT IMPRES 

PRINT SCROLL$ 

GOSUB 690 

IF UPPERS$S(K$>="P” THEN PR%=1 ELSE PR%=0 

PRINT CLS$ 
ERR%=SEEKRANK(F1%, 0,1) 
IF ERR%<>0 THEN GOSUB 1130 
WHILE ERR%=0 OR ERR%=101 
GET F1% 

GOSUB 4100 
ERR%=SEEKNEXT (F1%, 0) 
WEND 

RETURN 

A LISTADO POR MATERIAS 
PRINT CLS$ 

PRINT IVIDEOS+” LISTADO POR MATERIAS ”:PRINT NVIDEOS 
PRINT IMPRES 

PRINT SCROLL$ 

GOSUB 890 

IF UPPERS(K$>="P” THEN PR%=1 ELSE PR%=0 

PRINT CLS$ 

ERR%=SEEKRANK(F1%,0,1) 
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1900 
1910 
1920 
1930 
1940 
1950 
1960 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 


IF ERR*: +0 THEN sO0sUB 11305 
WHILE ERR%=0 OR ERR%=101 
GET Fl1% 

GOSUB 4200 
ERR%=SEEKNEXT(F1%, 0) 

WEND 

RETURN 


GOSUB 3000 

PRINT:PRINT "INTRODUZCA EL TITULO ”; 

LINE INPUT TS: PRINT 

KEYS=UPPERS(LEFTS(TS+” 2,6):) 
ERR%=SEEKKEY(F1%,0,1,KEY59) 

IF ERR%<>0 THEN GOSUB 3190:GOTO 2180 

GET F1% 

PRINT CLS$; : GOSUB 4000 

GOSUB 2430 

PRINT 

PRINT "Que desea realizar?” 

PRINT TAB(16>”1 Corregir este registro?” 
PRINT TAB(16)>”2 Borrar este registro”” 
PRINT TAB(16>”3 Continuar sin cambios” 
MENU%=3: GOSUB 610: PRINT 

ON OP% GOSUB 2220,2280,2420 

PRINT CLS$;:PRINT CONTINUAS: PRINT SINOS 
GOSUB 690 

IF UPPERS(K$)="”5S'” THEN PRINT CLS$:GOTO 2030 
RETURN 

A ta OPCION 1 modificar registro 
PRINT: FO%=1 

GOSUB 960 

F0O%=0: PUT F1% 

PRINT 

RETURN 

a AS A OPCION 2 borrar registro 
RN%=FETCHREC(F1%) 

GET F1% 

KEYS=UPPERS(LEFTSC(AUTORS, 6>) 

PRINT KEYS 

ERR%=DELKEY(F1%, 0,0, KEYS, RN%) 

IF ERR%>103 THEN GOSUB 1130 
KEY$=UPPERS$S(LEFTS$(TITULOS, 6)> 
ERR%=DELKEY(F1%,0,1,KEYS, RN%)> 

IF ERR%>103 THEN GOSUB 1130 
KEYS=UPPERS(LEFTS(MATS$, 6))> 

ERR%=DELKEY (F1%,0,2, KEYS, RN%)> 

IF ERR%>163 THEN GOSUB 1130 

RETURN 

RETURN 

PRINT 

PRINT"Presionar S-Siguiente, A-Anterior, C=Correcto” 
GOSUB 690 

IF UPPER$S(K$>="”A” THEN GOSUB 2490: GOTO 2430 
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470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
4000 
4010 
4020 
"4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 


IE UPPERS:¿E%+="85" THEN SOSUB 2540 GUIO 2430 
RETURN 
IN A E ERRE E EI EE AA . Opcion ”"Anterior” 


ERR%=SEEKPREV(F1%, 0 
IF ERR%<103 THEN GET F1%:PRINT CLS$, : GOSUB 4000 
PRINT IVIDEOS+"” NO HAY MAS REGISTROS "+NVIDEOS 


RETURN 
RAR a a Opcion ”Siguiente” 


ERR%=SEEKNEXT (F1%, 0) 

IF ERR%<103 THEN GET F1%: PRINT CLS$;.GOSUB 4000 
PRINT IVIDEOS+” NO HAY MAS REGISTROS "+NVIDEOS 

RETURN 


“" ,. APERTURA DE FICHEROS Y PLANTILLA REGISTROS 
OPEN ”K”,F1%,F$,FI5,2,LONG%, LIS 

FIELD F1%,20 AS AUTORS, 50 AS TITULOS5,20 AS MATS$ 
RETURN 

RS E a A REE y CERRAR FICHERO 
PRINT CLS$;'”CERRANDO FICHEROS” 

CLOSE F1% 

PRINT"F 1 N DE LA TAREA” 

RETURN 
EAS CONTROL DE EXISTENCIA DE FICHEROS 
IF ERR%=58 THEN 3150 

ON ERROR GOTO O 

PRINT" EL FICHERO YA EXISTE '” 


FOR H=1 TO 3000: NEXT H 

RESUME NEXT 

END 

E ; CONTROL DE TITULO INCORRECTO 
PRINT IVIDEOS 

PRINT” NO EXISTE ESE TITULO ' "+NVIDEOS 

FOR H%=1 TO 3500: NEXT H%. “ Pausa 

RETURN 

a IMPRIMIR DATOS POR AUTORES 
PRINT” AUTOR -— *”, AUTORS 

IF PR2THEN LPRINT "AUTOR -= ”,AUTORS 

PRINT* TITULO - ”,TITULOS 

IF PR2THEN LPRINT "TITULO - *”;¡TITULOS$ 

PRINT” MATERIA -— ”,MATS 

IF PR£THEN LPRINT "MATERIA -— ”,MATS; CHR$(15> 
PRINT S5: PRINT 

RETURN 

á IMPRIMIR DATOS POR TITULOS 
PRINT"ETTULO: >; TITULOS 

1F PR%THEN LPRINT "TITULO - ”,TITULOS 

PRINT” AUTOR -= ”, AUTORS 

IF PR2THEN LPRINT ”AUTOR Ss AUTORS 

PRINT" MATERIA — ”,MATS 


IF PR£THEN LPRINT "MATERIA 


| 


”, MATS, CHR$( 15) 
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4180 PRINT 5% FRINT 
4190 RETURN 


4200 “ 1. .... e A IMPRIMIR DATOS POR MATERIAS 
4210 7 

4220 PRINT"MATERIA — ”,MATS 

4230 IF PR%THEN LPRINT "MATERIA -— ”;MATS 

4240 PRINT” AUTOR - ”;¡AUTORS 

4250 IF PR%THEN LPRINT "AUTOR .-— ”; AUTORS 

4260 PRINT"TITULO - ”;¡TITULOS 

4270 1F PRZ2THEN LPRINT "TITULO - ”;¡TITULOS;CHR$(13> 


4280 PRINT S$:'PRINT 

4290 RETURN 

9000 7 o ..  «. RUTINA DE BORRADO DE FICHEROS 
9010 PRINT CL$+IVIDEOS+” Desea borrar todos los ficheros de 
datos” 

9020 PRINT” e indices utilizados por este programa? ” 
9030 PRINT SINOS+NVIDEOS; 

9040 INPUT Z5 

9050 IF UPPER$(Z$>="S” THEN 9070 ELSE 9090 

9060 ERA *X, DAT 

9070 ERA *X, DAT ' 

9080 PRINT IVIDEO$+” FICHEROS BORRADOS ”+NVIDEOS 

9090 STOP 
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CAPITULO 8 
FICHEROS CREADOS POR CP/M 


1, INTRODUCCION 
2. EL EDITOR DE CP/M 

* Generalidades 

* Manejo del editor. Operaciones básicas 
* Otras operaciones 
* 


Resumen de órdenes del editor ED.COM 


3. UTILIZACION DE LOS FICHEROS ED DESDE BASIC 
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8. Ficheros creados por CP/M 


1. INTRODUCCION 


El sistema operativo CP/M con que cuenta su Amstrad, dispone, entre otros, de un 
programa editor de textos. No es propiamente un tratamiento de textos, pero sí per- 
mite introducir de forma análoga a éste, una serie de datos (textos) que serán poste- 
riormente almacenados en un fichero. Su operatividad y funciones son muy distin- 
tas, pero bajo nuestro punto de vista —de utilización de ficheros— puede sernos 
igualmente útil. 


EL EDITOR DE CP/M 


Generalidades 


Antes de estudiar con detenimiento los ficheros creados por el editor de CP/M, pa- 
semos a una somera descripción del mismo, en qué consiste el editor CP/M y cómo 
se utiliza —dado que no se incluye en el manual. 


El programa editor es el transitorio ED.COM. Para utilizarlo debe primero entrar 
en CP/M y cuando obtenga la impronta A > tecle el nombre seguido de ENTER 
A>ED.COM ó A>ED 


El programa se instala en la base del TPA de la memoria RAM, de forma que el res- 
to constituye el buffer del editor. 


ED.COM BUFFER DEL EDITOR 


úlóéáA>áááoaa—oaococooo—.—u—__ 
TPA 


Un fichero de textos se compone de caracteres y éstos se agrupan en líneas. La sepa- 
ración de líneas se produce mediante dos caracteres de control: *M y “J que correspon- 
den al retorno del carro y a la alimentación de línea, respectivamente. Ambos carac- 
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teres son generados de forma automática por ED cuando se pulsa la tecla ENTER 
(RETURN). 


Al cargar ED observará que desaparece la impronta de CP/M, -A >- y aparece el 
símbolo *. Este es la impronta de! editor. Su aparición indica que nos encontramos a 
nivel de editor, es decir, listos para trabajar con él. 


El programa ED.COM se encuentra en la cara 1 del disco de sistema del CPC 6128 y 
la 3 de los PCW. 


Para comenzar a trabajar con ED debe previamente realizar una copia de este 
programa en un disco debidamente formateado. Utilice la orden A >PIP y después 
*B: =A: ED.COM. 


Dado que en el manual no se indica cómo funciona el editor, pasamos a exponer 
brevemente sus principales comandos. (Para mayor información puede consultar di- 
versas obras sobre CP/M). 


Nota: El símbolo 4 indica que debe presionarse la tecla CONTROL o ALT según el 
modelo, simultáneamente a la letra que sigue. 


Manejo del editor. Operaciones básicas 


Son muy variadas las funciones del programa ED. Veamos a continuación las prin- 
cipales. 


* Llamar al editor y crear un fichero 
Ya hemos visto en el apartado anterior que el programa se invoca mediante: 
A > ED.COM 
Pero lo más útil es simultanear la llamada con la creación (apertura) del fichero que 
contendrá los datos. Esto se consigue añadiendo el nombre del fichero a la orden 


ED, en la misma línea; es decir, si creamos un fichero de nombre PRUEBA.UNO, 
utilizaremos: 


A > EDPRUEBA.UNO 


De esta forma, se realiza simultáneamente la carga de ED.COM y la creación del 
archivo PRUEBA.UNO. 


En pantalla obtendrá como respuesta: 


NEW FILE 


.k 


La primera línea indica que el fichero no existía, es nuevo y la segunda es la impron- 
ta propia del editor como se ha indicado. 
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* Introducir texto. Inserción 


Para comenzar a introducir textos, debe indicarse al editor que se va a insertar texto. 
Para ello, tras la impronta anterior, añadimos ““¡”? seguido de ENTER, hágalo y ob- 
tendrá como respuesta: 


il 


1: 


indicando que está dispuesto para recoger la primerá línea. Introduzcamos el si- 
guiente ejemplo. Teclee: 


1: En (Presione RETURN al final de cada línea) 
2: un 

3: lugar 

4: de 

5: la 

6: Mancha 

7: 


Tras la introducción de la última línea, (la 6), aparecerá el indicativo 7:; es decir, se 
encuentra en espera de más líneas, debemos, pues, indicarle que la entrada de datos 
ya ha finalizado, saliendo del modo inserción en que nos encontramos. 


* Salir del modo inserción 


Para abandonar el modo inserción, basta con presionar Z( = CONTROL o ALT, 
según modelo). Tras ello volverá a reaparecer la impronta del editor: 
haga TAZ 


y la pantalla quedará en la forma siguiente: 


6: Mancha 
de 


ok 


* Grabar el fichero 


Puesto que hemos terminado con la introducción de líneas, procedemos a grabar su 
contenido en el fichero que fue creado previamente al efecto. 


La orden de grabación es: 
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Al pulsar ENTER verá que el disco es activado y en la pantalla volverá a reaparecer 
la impronta de CP/M, A >. El control ya no está bajo ED, sino bajo el sistema ope- 
rativo. 


Utilice la orden DIR y obtendrá: 


ED .COM 
PRUEBA.UNO 
PRUEBA.BAK 


El programa PRUEBA.BAK tiene su origen en un fichero transitorio creado por la 
orden ED PRUEBA.UNO, que crea automáticamente el fichero PRUEBA.$$$ que 
posteriormente pasará a consolidarse como PRUEBA.UNO, por la orden de graba- 
ción “e”, por lo que PRUEBA.$$$ pasa a ser PRUEBA.BAK (duplicado). 


Si lo desea puede listar el contenido del fichero PRUEBA, mediante la orden perma- 
nente TYPE (CP/M). 


A > TYPE PRUEBA.UNO 
Otras operaciones 


Las operaciones y funciones del editor ED.COM de CP/M son muy variadas y su 
estudio escapa de la finalidad práctica de este libro. Por ello, remitimos al lector a la 
bibliografía específica para un estudio profundo sobre este editor. 

No obstante, vamos a ver a continuación algunas órdenes complementarias, que 
permiten la inserción y borrado —fundamentales para trabajar con ED y que le per- 
mitirá crear ficheros como los indicados en los capítulos 0 y 1. 


* Inserción de líneas 


Partiendo del fichero creado anteriormente y guardado en disco bajo el nombre 
PRUEBA.UNO, procedemos nuevamente a llamar al editor indicándole el nombre 
del fichero en cuestión: 


A > ED PRUEBA.UNO 


od 


Dado que el fichero ahora sí existe, no aparece el mensaje NEW FILE. Pero esta or- 
den, por sí sola, no carga el contenido del fichero en el buffer del editor, para ello 
hemos de añadir: 


*Ha 


Al presionar ENTER se realiza la transferencia disco-buffer ED, tras la cual apare- 
ce: 


indicando que la orden ha sido ejecutada, aun cuando no se muestre el texto en pan- 
talla. Para visualizarlo se utiliza la orden +t (tipografiar), tras la cual, en pantalla se 
obtiene: 


A > ED PRUEBA.UNO 
ta 
AL 
: En 
¿un 
: lugar 
: de 
: la 
: Mancha 
k 


= DU hh YN — — 


La expresión 1: * que figura en último lugar, es indicativa de que cualquier inserción 
sería colocada en primer lugar, es decir, antes de la línea *“En””. Probemos: 


1:*i 
1: D. QUIJOTE 
2: 


Para salir del modo de inserción puede utilizarse 4Z, que no produce grabación. Si 
se desea grabar el nuevo fichero basta con usar tras “Z, la orden e como se hizo ante- 
riormente. Si lo hace puede comprobar con TYPE que el fichero tiene una línea 
más, precisamente la que se insertó en primer lugar, de forma que el número de línea 
se ha desplazado. 


Si lista el fichero obtendrá 


A >ED PRUEBA.UNO 

Ha (pasa texto al buffer) 
ñt (lista texto) 

: D. QUIJOTE 

En 

un 

: lugar 

de 

: la 

: Mancha 


JO U buno 


La tarea de inserción puede realizarse en cualquier parte del texto, p.e. si entre la 
línea 3 y 4 se desea insertar ““extenso”” el procedimiento será 


1) orden i para insertar 

2) 4: para indicar que la inserción se realizará delante de la línea 4 

3) 4: extenso. Introducir el texto tras la impronta 4: dada por el editor 
4) Z para salir de inserción 
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Los errores mecanográficos al escribir las líneas, pueden ser subsanados mediante 
“H, que es la orden específica de borrado de CP/M, cuyo efecto es eliminar el carác- 


ter situado a la izquierda del cursor. En el epígrafe siguiente se describen con más 
detalle las posibilidades de borrado y el movimiento de los cursores. 


* Borrado parcial de líneas. Movimiento de los cursores 


El movimiento sobre el texto, o sobre una línea no es precisamente una tarea cómo- 
da en ED, por lo que en muchas ocasiones resulta preferible borrar una línea y escri- 
birla de nuevo, que tratar de modificarla. 


Para poder actuar sobre una determinada línea, debemos previamente, situar el 
puntero en dicha línea, valiéndonos para ello de la orden n:, siendo n el número de 
línea en cuestión. 


Una vez situados, ED dispone de una orden específica de borrado parcial de líneas o 
conjunto de caracteres. Su sintaxis es la siguiente: 


[:=nd] 


Donde n indica el número de caracteres a suprimir, y la letra d es la inicial de delete 
(borrar). El signo + o - indica la dirección en que se va a realizar el borrado; (-) a la 
izquierda del cursor, (+) a la derecha. Si se omite el signo, se toma (+) por defecto. 


Ahora bien, además de la orden n: para el desplazamiento de líneas, ED dispone de 
un juego de órdenes que permiten desplazamientos de los cursors en los cuatro senti- 
dos: arriba-abajo (líneas), derecha-izquierda (en una línea). Veamos estas Órdenes: 


:+=b 


b es la inicial de begin o bottom (comienzo o fondo). La función asumida es situar el 
puntero al principio o al final del fichero, según que el signo sea - o +, respectiva- 
mente. Por omisión se toma el signo +: 


¿nl 


l es la inicial de line (linea). Esta orden permite avanzar o retroceder un número de 
líneas determinado por el número n, según el signo empleado, como en la orden an- 
terior. 


El número n puede ser sustituido por el comodín +, que equivale a ““todo””, de ma- 
nera que: + l hace avanzar al puntero hasta el final y: —+ 1, al principio del texto. 


¿nc 
c es la inicial de character y la función asumida es mover el cursor a lo largo de la 
línea el número de caracteres indicado por n. El signo - indica hacia la izquierda y el 


+ hacia la derecha (por omisión se toma +). 
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Para ver un funcionamiento práctico basándonos en el ejemplo que hemos venido 
utilizando, imaginemos que deseamos modificar la línea 3 que contiene: 


3: lugar 


y en vez de ““lugar”” poner “*local”. 
Las operaciones a realizar serán por este orden: 
— Llevar el puntero al comienzo : —b 


— Llevar puntero a línea 3 2:31 
— Llevar puntero a la letra 1 :lc 
— Borrar ““ugar” :4d 
— Añadir ““ocal”” : iocal 


Como se ve no resulta precisamente cómodo, veamos como borrar líneas. 


* Borrado de líneas completas 
Para borrar una o varias líneas consecutivas, ED dispone de la orden: 
:nk 


La letra k es la inicial de kill (suprimir) y n es el número de líneas a borrar, por de- 
lante o por detrás de la línea en curso (puntero) según el signo (-arriba, + abajo). 
Por ejemplo para borrar la línea 3 completa, habrá que dar las siguientes Órdenes: 
1:* 3: posicionar puntero en línea 3 
3:*k borrar línea 3 


3:*b  iral final del fichero 
1: * At listar todo 


Las órdenes de ED pueden concatenarse, de forma que el ejemplo de borrado ante- 
rior, también puede realizarse mediante: 


1:*3kbF*t 


Cuando el valor de n es uno, puede omitirse. 


El uso del comodín permite borrar todas las líneas anteriores o posteriores a la posi- 
ción del puntero. La sintaxis será: 


¡2 Hk 
* Conclusión de los trabajos 
Además de la orden ”C general de CP/M que produce una interrupción brusca de 
cualquier trabajo, ED contiene una orden propia de salida, mucho más aconsejable 


y útil que la anterior. Esta orden es “q”, inicial que quit (desistir). 
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Tras la introducción de esta orden, ED pide confirmación: 


:*q 
Q -(Y/N? 


Si se pulsa Y, las modificaciones efectuadas son abandonadas. Si se pulsa N, la si- 
tuación se mantiene inalterada, pasando a nivel de operador. 


Una orden complementaria es *“o”” inicial de original, que deja el fichero en las con- 
diciones originales, es decir, no se tienen en cuenta las modificaciones. 
Al igual que la orden **q””, tras la utilización de *“o””, ED pide confirmación: 

:*o 

O - (Y/N)? 


El efecto es el mismo que con “q”, pero se mantiene el nivel de editor, en vez de pa- 
sar a nivel de operador. 


Las órdenes del ED expuestas son sólo algunas de las utilizables con este programa, 
aunque estimamos suficientes para la creación y corrección de ficheros. 


Resumen de órdenes del editor ED.COM 


ED nombre Carga el programa ED.COM y crea el fichero “'nombre”” si no 
existía, en caso contrario lo abre. 


i Insertar texto. Una o varias líneas. 
Ha Transfiere el texto desde un fichero al buffer. 
Het Lista el fichero contenido en el buffer por pantalla e impreso- 


ra, si ésta se encuentra activada por P. 


e Transfiere el contenido del buffer al disco, almacenándolo en 
el fichero que se indicó. 


n: Inserta una línea en la posición indicada por el número n. 
Hat Realiza simultáneamente las funciones de Ha y 4 t. 

+nd Borrar el número de caracteres indicado por n. 

+ b Puntero al principio o final del fichero. 

+nl Avanzar o retroceder n líneas. 

+nc Avanzar o retroceder n caracteres en una línea. 


168 


+nk Borrar n líneas. 


$H Comodín cuyo significado es “todo”. 
q Salida a nivel de operador. 
O Salida manteniéndose a nivel de editor. 


3. UTILIZACION DE LOS FICHEROS ED DESDE BASIC 


Los ficheros creados por ED.COM, pueden ser leídos y manipulados desde Mallard 
BASIC, como ficheros secuenciales. 


Para poder comprobarlo puede utilizarse la orden TYPE. Haga bajo CP/M: 
A > TYPE PRUEBA.UNO 


y obtendrá un listado del contenido del fichero línea a línea. 


Ahora procedamos a su lectura y comparación mediante el siguiente programa BA- 
SIC. 


10 * LECTURA DE FICHEROS CREADOS FOR ED. COM 
ZO O raro CEDO ccoo ooo 
30 INFUT "NOMBRE DEL FICHERO "¡F+ 

40 OPEN "1",1,F£ 

50 WHILE NOT EOF (1) 

60 INFUT .1,A$:PRINT A£ 

70 WEND 

80 CLOSE 


De igual forma puede establecerse una correspondencia entre ficheros LocoScript- 
BASIC-CP/M, vea el programa incluido en el apéndice 5, que trata del paso de un 
fichero creado por Loco Script a uno estandar ASCII. 


Los ficheros PROFILE.SUB indicados en los capítulos O y 1, pueden ser confec- 
ciones por ED directamente, o bien con LocoScript y convertidos posteriormente a 
ASCII, siguiendo las instrucciones indicadas en el citado apéndice. 
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APENDICES 


. CODIGO ASCII 

. LA IMPRESORA DE LOS PCW 

. CODIGOS DE ERRORES EN MALLARD BASIC 

. CONVERSION DE NUMEROS. CAMBIO DE BASE 

. CONVERSION DE FICHEROS LOCOSCRIPT A ASCII 
. CODIGOS DE CONTROL 

. EDITOR SENCILLO PARA FICHEROS DE ORDENES 


Apéndice 1 


CODIGO ASCII 


HEX 


BINARIO 


COMENTARIO 


<0 


DCc2 
DC3 
DCA4 
NAKk 
SYN 
ETE 
CAN 
EM 

SUB 
ESC 


RS 


nes 


s ge 


== wY0A ANN NN - 


=- 
- O 


2 o po e 
ST IS] 


- 
Co 


- 
LO 


20 
21 


22 


24 
25 
26 
po 
28 
z3 
30 
31 
32 
33 
34 
35 
36 
37 
33 
39 
40 
41 
42 


00000000 
00000001 
00000010 
00000011 
00000100 
00000101 
00000110 
00000111 
00001000 
00001001 
0N001010 
00001011 
00001100 
00001101 
00001110 
00001111 
000 10000 
00010001 
00010010 
00010011 
00010106 
00Uu10101 
00010110 
00010111 
00011000 
00011001 
00011016 
00011011 
00011100 
00011101 
00011110 
00011111 
00100000 
00100001 
00100010 
00100011 
00100100 
00100101 
00100110 
00100111 
00101000 
00101001 
00101010 


NULO (C-€] 

COMIENZO DE CABECERA (C-A) 
COMIENZO DE TEXTO [(C-8] 

FIN CE TEXTO (C-C] 

FIN DE TRANSMISION [C-DJ 
FETICION (C-E] 
RECONOCIMIENTO (C-F] 

ALARMA O CAMPANA [C-6] 
ESPACIO HACIA ATRAS [C-H] 
TABULACION HORIZONTAL [C-1] 
ALIMENTACION DE LINEA [C-J) 
TABULACION VERTICAL (C-XK] 
ALIMENTACION DE FAGINA ([C-L] 
RETORNO DEL CARRO [C-M] 
DESPLAZAMIENTO EXTERNO [(C-N] 
DESPLAZAMIENTO INTERNO (C-0] 
ESCAFE DEL ENLACE DE COMUNICACION DE DATOS [C-P) 


CONTROL. UNIDAD 1 (C-Q] 
CONTROL UNIDAD 2 [(C-R] 
CONTROL UNIDAD 3 (C-S] 
CONTROL UNIDAD 4 [C-T] 


RECONOCIMIENTO NEGATIVO [CJ] 
DOSECUPACION SINCRONA [C-V] 
FIN DE TRANSMISION DE BLOQUE [C-4] 
CANCELACION [C-X] 

FIN DE MEDIO (C-Y1 
SUSTITUCION [C-Z] 

ESCAPE (C-(1] 

SEFARADOR DE FICHERO [C-1] 
SEPARADOR DE FRUPO [C-]] 
SEPARADOR DE REGISTRO [C-”] 
SEPARADOR DE UNIDAD [C-0] 
ESPACIO 

SIMBOLOS 
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SIM DEC HEX BINARIO COMENTARIO 
+ 43 2 00101011 
, 44  2C 00101100 
> 4S 20 00101101 


46 2 00101110 
/ 47  2F 00101111 
0 48 3 00110000 NUMEROS 
1 49 31 00110001 
2 s0 32 00110010 
3 St 33 00110011 
4 52 34 00110100 
S 53 35 00110101 
6 sé 3 00110110 
7 55 37 00110111 
8 se 3 00111000 
9 Ss7 39 00111001 
: S8  3A 00111010 
5 Ss9 38 00111011 
< 66 3 00111100 
= 61 30 00111101 
> 62 CE 00111110 
? 63  3F 00111111 
e 64 40 01000000 
A ES 41 01000001 LETRAS MAYUSCULAS 
8 66 42 01000010 
c 67 43 01000011 
D 68 44 01000100 
E 69 45 01000101 
F 70 46 01000110 
G 71 47 01000111 
H 72 48 01001000 
I 73 49 01001001 
J 74  4A 01001010 
K 7S 48 01001011 
L 76  4C 01001100 
M 77 40 01001101 
N 78  —4E 01001110 
0 79  4F 01001111 
P 80 50 01010000 
Q 81 51 01010001 
R 82 52 01010010 
Ss 83  S3 01010011 
T 84 —S4 01010100 
Ú gs s5 01010101 
v 86 56 01010110 
W 87 57 01010111 
Xx 28  $S83 01011000 
Y 89 59 01011001 
z 90 SA 01011010 
r 91 SB 01011011 SIMBOLOS 
NS 92 SC 01011100 
J 93 5D 01011101 


94 SE 01011110 
95 SF 01011111 
96 60 01100000 


a 97 61 01100001 LETRAS MINUSCULAS 
b se 62 01100010 
c 9 63 01100011 
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SIM DEC  HEX E INARIO COMENTARIO 


d 100 64 01100100 
101 65 01100101 
102 66 01100110 
103 67 01100111 
104 68 01101000 
105 69 01101001 
106 6A 01101010 
107 EB 01101011 
108 6c 01101100 
109 €D 01101101 
110 6E 01101110 
111 6F 01101111 
01110000 
113 71 01110001 
114 72 01110010 
115 73 01110011 
116 74 01110100 
117 75 01110101 
113 76 01110110 
119 77 01110111 
120 73 01111000 
121 79 01111001 
122 7A 01111010 
123 78 01111011 SIMBOLOS 
124 7C 01111100 
125 70 01111101 
126 7E 01111110 





Y“ ANX XEX<C ¿NN IODO DBA A TOD AM 
— 
- 
h 
Y 
o 
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Apéndice 2. La Impresora de los PCW 


El control de la impresora integrada de los PCW, desde Mallard BASIC, se realiza 
mediante la instrucción LPRINT, seguida de códigos y caracteres de control. 


Los códigos de control se introducen mediante la orden CHR$(cc), donde cc repre- 
senta el valor ASCII de dicho código, en decimal o hexadecimal. Por ejemplo el tipo 
de letra ““estrecha”” se consigue enviando a la impresora la sentencia 


LPRINT CHRÍ(15) 

en decimal, o bien 

LPRINT CHR$(£«H0F) 

en hexadecimal 
En la tabla de código ASCII que se incluye en el apéndice Al, puede verse la equiva- 
lencia entre valores decimales y hexadecimales, así como los símbolos a que corres- 
ponden, dichos símbolos no pueden ser usados directamente desde BASIC, pero si 
en CP/M para la creación de ficheros de definición de la impresora, en el ejemplo 
anterior, el símbolo que corresponde al valor 15 decimal es SI. 


En cuanto a los caracteres de control, se envían a la impresora mediante una orden 
LPRINT, en la cual van entrecomillados. Por ejemplo fijar el margen izquierdo a 5 
caracteres del límite de escritura, supone enviar los caracteres ESC 1 5. 


ESC— símbolo ASCII cuyo valor es 27 (decimal) 
lI— carácter de control a enviar en la forma “1” (ele minúscula) 
5— posición del margen izquierdo 


la sentencia sería 


LPRINT CHR$(27);*1””; CHR$(5) o bien 
LPRINT CHR$(27); CHR$(108); CHR$(5) 
dado que el valor ASCII de 1 (ele minúscula) es 108 decimal. 


Habida cuenta de la variedad de formas en que pueden introducirse los códigos y a 
fin de minimizar errores, lo más aconsejable es decidirse por un tipo de numeración 
—decimal—, un tipo de representación de caracteres —también decimal— y un tipo 
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de simbolos —como no! decimal—. Esta forma tiene la ventaja de uniformizar to- 
dos los tipos. En todos los controles de impresora que se describen a continuación 
se utilizará la grafía ordinaria y su equivalencia en decimal. 


Para mayor comodidad en la introducción de las palabras BASIC, LPRINT y 
CHR$, puede utilizarse la rutina de definición de teclado, descrita en el apéndice 
A.3. 


En el cuadro CU.1 se exponen agrupados los códigos de control de la impresora. La 
primera columna contiene las funciones que realizan. En la segunda la nomenclatu- 
ra de los códigos, expresada en símbolos ASCII, válida para el trabajo en CP/M, 
pero no en BASIC. La tercera contiene los códigos anteriores en forma utilizable 
mediante LPRINT y por último la cuarta expresado todo en valores decimales y por 
tanto utilizable también por LPRINT del BASIC, unido a la función CHR$ que 
contendrá los valores expuestos en dicha columna, tal como se hace en el ejemplo 
anterior. 


CU.1 CODIGOS DE LA IMPRESORA 


FUNCION Valores 
decimales 


CHRS() 


TIPO DE PAPEL 


Hojas sueltas CHR$(27); $” (27) (36) 
Papel continuo CHR$(27);**c”” (27) (99) 


AVANCE DEL PAPEL 


Salto de página CHR$(12) (12) 
CHR$(27);**8”” (27) (56) 
id, desactivado CHR$(27); “9” (27) (57) 


AVANCE DE LINEAS 


Avance de línea CHR$(10) (10) 
CHR$(27); “LF” (27) (10) 
CHR$(27); “CR” (27) (13) 


SALTO FIN DE PAGINA 


Activar (n líneas) CHR$(27);“N”;CHRS(n) (27) (8) (n) 
Desactivar CHR$(27);**0” (27) (19) 


CARRO 


Retroceso de 1 posición (8) 
(13) 


PASOS DE LINEA 


1/8 de pulgada CHR$(27);**0” (27) (48) 
TDS ES CHR$(27);**1” (27) (49) 
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Valores 
decimales 


CHRS() 





FUNCION 







































LS CHR$(27);*2” (27) (50) 
n/256 “ “ CHR$(27);**3”,CHR$(n) (27) (31) (n) 
na CHR$(27);“*A”;CHR$(n) (27) (65) (n) 
MARGENES (ver CU.2) 

Izquierdo CHR$(27);*1””;CHR$(n) (27) (108) (n) 
Derecho CHR$(27);**Q”;CHR$(n) (7) (81) (n) 
TABULADORES (Max 32) 














CHR$(27);**D””;CHR$(n) 
CHR3(9) 


(27) (68) (n) 
(9) 


Marcar posición tabulador 
Avanzar hasta tabulador 


LONGITUD DE PAGINA 


Definición en líneas 
Definición en pulgadas 


REINICIALIZAR 

Volver a condición inicial 
JUEGO PE IDIOMAS 
EE.UU. 








CHR$(27);**C”;CHR$(n) (27) (67) (n) 
CHR$(27);**C”;0;CHR$(n)| (27) (67) (48) (n) 
















(27) (64) 








CHR$(27); “a” 
















CHR$(27);“*R””;CHR$(0) (27) (82) (0) 
























Francia 1 (1) (1) 
Alemania : 2 : : (2) 2) 
Reino Unido : 3 : A (3) €) 
Dinamarca ; 4 ; ; (4) (4) 
Suecia , 5 E y (5) (5) 
Italia 6 E: (6) (6) 
España ] 7 S , (7) (7) 
Japón : 8 . : (8) (8) 











Los valores que pueden tomar **1” y **Q”” en la delimitación de los margen izquierdo 
y derecho respectivamente, vienen impuestos por el tipo de letra, que fija el número 
de caracteres máximo que puede contener una línea. 


En el cuadro CU.2 se indica, para cada tipo de letra, los valores posibles de **1”” y 
““Q”, así como los valores implícitos al encender la impresora, por último se expresa 
la distancia mínima entre el tabulador izquierdo y derecho, expresada en caracteres. 
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CU.2 MARGENES. VALORES DE DELIMITACION E IMPLICITOS 


TIPO DE LETRA DELIMITACION| VAL.IMPLI. [DIST. MINIMA 


0 80 


PICA (10 cpp) 

PICA DOBLE ANCHO ($5 cpp) 
ELITE (12 cpp) 

ELITE DOBLE ANCHO (6 cpp) 
PROPORCIONAL (12 cpp) 
ESTRECHA (17 cpp) 





DISTANCIA MINIMA ENTRE TABULADORES = 1/5 pulgada 


(c) = caracteres (cpp) = Número de caracteres por pulgada 
1 pulgada = 2.54 cm 


Los códigos de los distintos tipos de letra se exponen a continuación. Por razones de 
espacio se ha suprimido la columna intermedia equivalente al cuadro CU.1, sin 
embargo se indican los códigos que activan y desactivan cada tipo de letra, tenga en 
cuenta que la desactivación supone: la vuelta al tipo de letra ““Pica”” que es la adop- 
tada al encender o reinicializar la impresora o bien el abandono de un atributo 
(negrilla, alta calidad), etc. 


TIPOS DE LETRA 


LETRA ACTIVAR DESACTIVAR 
ASCIH | Valores decimales ASCH | Valores decimales 
Estrecha 


(15) (18) 
Elite QN(07 (Q7 (12) 
Proporcional Q7 (1123) (1) (27) (112) (0) 
Doble ancho (14) (0) 
Cursiva (127) (52) (27) (53) 























































Alta calidad (27) (109) (1) (27) (109) (0) 
Doble impresión QNOAD (Q7) (72) 
Negrita (27) (69) Q7) (0) 
Subíndices (27) (83) (1) (27) (84) 
Superíndices (27) (83) (0) (27) (84) 
Subrayado (27) (45) (1) (27) (45) (0) 
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Existe un carácter especial ESC!n que permite seleccionar un modo mixto de escritu- 
ra, p.e. dobla ancha y negrilla. El número n representa el valor decimal de un núme- 
ro binario de $ dígitos (bits), con el siguiente significado. 


bit 1% — doble ancho (bit más significativo) 
bit 2% — doble impresión 

bit 39 — negrilla 

bit 4% — estrecha 

bit 5% — élite (bit menos significativo) 


Si tenemos en cuenta que el valor decimal de cada bit es 





Puede establecerse la siguiente tabla de valores decimales 


16 — doble ancho 
8 — doble impresión 


4 — negriila 
2 — estrecha 
1 — élite 


Para elegir una combinación y calcular el valor de n correspondiente basta con su- 
mar los valores de cada opción, por ejemplo: 


doble ancho y negrilla n=16+4=20 (10100) 
élite y doble impresión =1+8=9 (01001) 


Este método es más sencillo que establecer el binario correspondiente y pasarlo a de- 
cimal. 


El cero puede ser representado por la impresora con o sin barra, se selecciona me- 
diante 


ESC X cero barrado CHR$(27);“X” (27) (88) 
ESC o cero sin barra CHR$(7);“o0” (QN)011 


El juego de caracteres normal puede ser ampliado entre los márgenes 0 a 31 y 128 a 
159, siempre que dichos caracteres no sean de control. Para activar esta ampliación 
utilice ESC 1 1 y para desactivar ESC 1 0, en el manual (tomo 1) se indica una tabla 
con los caracteres ampliados. 


Dado que el envío de caracteres de control a la impresora resulta siempre tedioso, 
por las continuas cadenas LPRINT CHRÍ( )+..., pueden utilizarse varios tipos de 
simplificaciones: 
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1*. Redefinir el teclado de forma que “*CHR$(” quede incluido en una tecla y su so- 
la pulsación genera este conjunto de caracteres. Esta posibilidad fue ofrecida en 
los capitulos 0 y 1, instalación. 

2*, Definir cadenas con la orden DEF EN, por ejemplo 


10 DEF FN I$(X) = CHR$(27) + CHR$(X) 
de esta forma podemos utilizar FN para imprimir 


15 LPRINT FN I1$(14) + “EJEMPLO CON LETRA EXPANDIDA” 
3*. Definir una variable alfanumérica con la secuencia de escape CHR$(27) 
E$= “CHR$(27)” 


4%, Elaborar una rutina de impresora con las secuencias de códigos de control más 
utilizadas y agregarla a todos los programas. Cada conjunto de caracteres de 
control se le asigna a una variable alfanumérica cuyo nombre sea fácil de recor- 
dar e identificar. 


El listado que se ofrece a continuación, que puede ser ampliado, mejorado y/o 
adaptado a sus necesidades permite este tipo de simplificación. 


1000 7 RUTINA DEFINICION CODIGOS IMPRESORA 
VOTO a EMPBRES uo da rn e e 
1020 ”7 A=Activar D=Desactivar 
1030 7 LETRA ELITE 

1040 AELITES=CHR$(27)+CHR5$(77> 

1050 DELITES=CHR$(27)>)+CHR5 (112) 

1060 7“ LETRA ESTRECHA 

1070 AESTRES=CHR$ (27 >)+CHR$ (15) 

1080 DESTRES=CHR$(27>)+CHR$(18) 

1090 7 LETRA PROPORCIONAL 

1100 APROPOR$=CHR$ (27 >+CHR$(112>+CHR$(1» 
1110 DPROPORS=CHR$ (27>+CHR5(112>+CHR$(0) 
1120 7 LETRA EXPANDIDA (Doble ancho)» 
1130 AEXPANS=CHRS (27 )+CHR5(14) 

1140 DEXPANS$=CHR$(27>+CHR5(20) 

1150 7 LETRA ITALICA (Inclinada) 

1160 AITALIS=CHR$(27)3+”4” 

1170 DITALIS=CHRS(27)+*5” 

1180 7“ LETRA NEGRITA 

1190 ANEGRA$S=CHR$S (27 )+CHR5S(09) 

1200 DNEGRA$=CHR$ (27 >+CHR$(70) 

1210 7 LETRA ALTA CALIDAD 

1220 AACALI$=CHR$(27>+CHR5(109>+CHR$(1> 
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1230 DACALIS=CHRS (27)+CHR9 (109)+CHR$(0)> 
1240 “” SUBRAYADO 

1250 ASUBRAS=CHR$S (27)4+”*-"4+”1” 

1260 DSUBRAS=CHR$S (27)+”-"+”0Q” 

1270 * INICIALIZAR IMPRESORA 

1280 INITS=CHR$S (27)+CHR$(604) 

1290 " SALTOS DE LINEA Y PAGINA 

1300 SALTOPAG$=CHR$ (12) 

1310 SALTOLINS=CHR$ (13) 


Una vez instalada la rutina expuesta, en su programa, para provocar el envío de un 
conjunto de caracteres de control a la impresora bastará con imprimir la variable 
que los contiene, por ejemplo para enviar la orden de escritura con tipo itálico sería 


LPRINT AITALI$; 


El punto y coma evita el que se produzca un salto de línea. También puede añadirse 
a la anterior secuencia la variable que contenga el texto a imprimir en la forma 


LPRINT AITALI$;Z$ 


o bien el propio texto en forma de cadena, por ejemplo 


LPRINT AESTRES$ + “EJEMPLO DE ESCRITURA CON LETRA ESTRECHA” 
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Apéndice 3. Código de Errores de Mallard Basic 


En el Apéndice II del Manual (Tomo 2), encontrará una lista exhaustiva de los men- 
sajes de error emitidos por Mallard BASIC. Como verá, se halla dividida en tres 
partes, la primera, errores 1 a 30, contiene los errores denominados “*ordinarios””, 
propios de la sintaxis y actuación del lenguaje. La parte segunda, errores 50 a 74, 
son propios del manejo de disco y por último, la tercera, errores 113 a 115 incluye 
los originados en trabajos con ficheros de acceso por claves. 


Código 

de Tipo de Error 
Error 
1-30 Ordinarios del BASIC 
50 - 74 De disco 
113-111 Jetsam 


No se trata pues de repetirlos uno a uno en este apéndice, sino de hacer un uso más 
avanzado de los mismos a través de los códigos que generan y aprovechando las fun- 
ciones de control de error, de que dispone el Mallard BASIC. 


ERR Esta función devuelve el código del error detectado 

ERL Indica la línea en la que se ha producido el error 

ERROR Provoca una acción idéntica a la que se realizaría si se hubiese de- 
tectado el número de error indicado. 

OSERR Permite puntualizar el genérico error 21, propio del sistema opera- 
tivo. 


Todas estas funciones pueden ser tratadas mediante la orden ON ERROR, elabo- 
rando una rutina informativa sobre los errores producidos durante la ejecución de 
un programa, de forma que éste no se detenga pero avise si se producen errores. 


Una forma práctica, entre las muchas posibles, de utilizar estos códigos es la de de- 
volver el control del programa al Menú principal tras la aparición de un error, indi- 
cando cual es el error producido y en que lugar. Para ello debe incluirse una senten- 
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cia al comienzo del programa principal del tipo ON ERROR. Un ejemplo puede ser: 


40 ON ERROR GOTO 9000 


100 MENU PRINCIPAL 


9000”? CONTROL DE ERRORES 

9010 IF ERR< 31 THEN T$= “ORDINARIO “ELSE T$ = “DE DISCO” 
9020 PRINT “ERROR”; T$; ““NO””; ERR; “EN LINEA”; ERL 

9030 GOTO 100 


Este tipo de rutinas puede evidentemente ser más complejas. El programador debe 
construir una a su gusto y necesidades, incluyéndola en todos sus programas. 


Recuerde que ON ERROR en combinación con RESUME le permite reanudar la 
ejecución de un programa, tras la aparición de un error, en la forma que le sea más 
conveniente. 


RESUME. Devuelve el control al principio de la sentencia donde se generó el 


RESUME pn' línea. Continúa el programa en la línea indicada (sustituye a GO- 
TO 100 del ejemplo) 
RESUME NEXT. Continúa el programa en la siguiente línea a la que se detec- 
tó el error. 
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Apéndice 4. Conversión de Números. Cambio 
de Base 


Con el fin de facilitar la conversión de números de una base de numeración a otra, 
se incluye el siguiente programa, válido para cualquier base de origen y final 
comprendida entre 2 y 35. 


El programa solicita la base en la que está expresado el número a transformar (base 
de partida), la base en la que se deben expresar dicho número (base final) y por últi- 


mo 


el número en cuestión. 


SISTEMAS DE NUMERACIÓN CAMPIO DE PASES 
BASES 
Z$="0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ” 
PRINT CHR$(27)>+”E"+CHR$(27)+"”H” 
INPUT "BASE DE PARTIDA (MAX=35) ”,B1 B1=INT(B1> 


PRINT 

INPUT "BASE FINAL (MAX 35) ”,B2 B2=INT(B2> 
PRINT "NUMERO A TRANSFORMAR DE BASE”,B1,"A BASE”,B2, 
INPUT N$5 

A=0 M$="”"” 

L=LEN(N$)> 


FOR X=1 TO L 

FOR Y=1 TO B1 

IF MIDS(Z5, Y, 1><>MIDS(NS$5,X,1> THEN 150 
ZO=ZO+INT((Y-1>*k(B1”" (L-X>)>+0 5) 

NEXT Y 

NEXT X 
Z1=INT(B2*(:Z0/B2>-INT(ZO/B2>)>)+1 5) 
M$=MID$(Z$,Z1,1>+M5 

ZO0=INT(ZO/B2> 

IF ZO>0 THEN 170 

PRINT PRINT 

PRINT N$,” en base ”,bl1,” es igual a ”,m$,” en base ”,b2 


PRINT PRINT PRINT PRINT 

INPUT "OTRO NUMERO CON LAS MISMAS BASES (S/N>”,C$ 
IF UPPER$(C$>="S” THEN 70 

GOTO 30 
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Apéndice 5. Conversión de Ficheros Lo- 
coScript a ASCH 


Los ficheros generados por LocoScript no tienen formato ASCII y por tanto no son 
utilizables por CP/M. Sin embargo el uso de este programa es mucho más cómodo 
que el editor de CP/M, ED.COM, por tanto resulta de gran interés el poder pasar de 
un formato propio como es el LocoScript a uno estandar como ASCII. Esta opera- 
ción es posible a través del programa en Mallard BASIC, incluído al final de este 
apéndice. 


Antes de utilizar un fichero de LocoScript en el programa mencionado, es necesario 
eliminar la cabecera del fichero, para ello puede crearse un nuevo documento sin ca- 
becera, mediante la opción f8. Este fichero será tratado por LocoScript como un do- 
cumento ajeno a él y debe ser grabado en el grupo 0, exclusivamente. 


Una vez salvado el documento, como bloque, debe salir de LocoScript y pasar a 
CP/M para cargar Mallard BASIC, o bien utilizar la instalación descrita en el 
capítulo primero, si dispone ya de ella. Ejecute el programa, que se incluye a conti- 
nuación y el texto LocoScript, pasará a texto ASCII. 


10? CONVERSION DE FICHERO 

20” LOCOSCRIPT - ASCII 

30” ---- “LOCO ASCTI” 

50 PRINT CHR$(27) + “E” + CHR$(27)+“H” 

60 INPUT “Nombre fichero LOCOSCRIPT”; LOCOS$ 

70 INPUT “Nombre fichero ASCIT””; ASCIS$ 

80 IF ASCI$= “*” THEN ASCI$ =LOCOS$ 

99 PRINT “Fichero Fuente”; LOCOS; “*Fichero destino””; ASCIS$ 

100 INPUT “Nombres correctos (S/N)””; Z$ 

110 IF UPPER$(Z$) < > ““S” THEN 50 

120 OPEN “TI”, 1, LOCO$: OPEN “0”, 2, ASCIS$ 

130 FOR K=1 TO 128: T$= INPUTS (1, 4 1): NEXT K 

140 WHILE NOT EOF (1) 

150 T$= INPUTS(1, +1) 

160 IF T$ = CHR$(129) THEN T$= “*” 

170 IF T$ = CHR$(136) THEN T$= INPUTS(, +1): AS$= CHR$(13) + 
CHR$(10) 

180 IF T$< > CHR$(128) THEN PRINT +2, TS; 
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190 WEND 

130 CLOSE 

150 PRINT “Fichero modificado a ASCIT”” 
160 END 


Como verá la línea 130 lee, despreciando el contenido, de la sección primera del 
fichero que contiene datos de uso exclusivo de LocoScript, pero que no pertenecen 
al texto propiamente dicho. 


Las líneas 160 a 180 manejan los retornos de carro, para adaptarlos al standar AS- 
Cr. 


El fichero generado puede ser usado desde CP/M y desde BASIC. Una aplicación 
inmediata es la creación de ficheros PROFILE.SUB descrita en los capítulos 0 y 1, 
utilizando LocoScript, en vez de ED.COM, ya que si no está familiarizado con este 
editor, le será mucho más fácil el procedimiento descrito en este apéndice. 


Apéndice 6. Códigos de Control 


SECUENCIAS DE ESCAPE 


A título de referencia se incluyen a continuación todas las secuencias de escape utili- 
zables por los CPC y PCW con indicación de las diferencias entre ambos modelos en 
aquellos casos en que existen. 


— ESC “*0” y ESC “*1”. Desactiva y activa respectivamente la línea de mensajes del 
sistema operativo. Su desactivación permite utilizar dicha línea en la forma habi- 
tual, los mensajes no se pierden sino que aparecen junto al resto de los textos, co- 
mo uno más. 


— ESC “*2” n. Permite modificar el juego de caracteres internacional. El valor de n 
será entero comprendido entre 0 y 7 con el siguiente significado. 


0 U.S.A. 4 Dinamarca 
1 Francia 5 Suecia 

2 Alemania 6 Italia 

3 Reino Unido 7 España 


— ESC *“*3” n. Modifica el modo de pantalla en los CPC. En los PCW no produce 
ningún efecto 


n=0 MODEO  (0columnas) 
n=1 MODE 1 (40 columnas) 
n=2 MODE 2 (80 columnas) 


Esta secuencia de escape produce además (CPC) el borrado de pantalla. 


— ESC “*A”. Sube el cursor a la línea superior. 
— ESC “*B”. Baja el cursor a la línea inferior. 
— ESC “*C””, Mueve el cursor una posición a la derecha. 


— ESC **D””. Mueve el cursor una posición a la izquierda. 
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Estas cuatro opciones A, B, C y D no producen ningún efecto, si el cursor se haya en 
el límite de pantalla correspondiente. 


— ESC “*E”. Borra la pantalla sin afectar a la posición del cursor. 


— ESC “*H”. Sitúa el cursor en la posición o,o de ventana (en los CPC no hay ven- 
tanas bajo CP/M, pero en los PCW si). Estas dos últimas secuencias de escape 
pueden ser utilizadas simultáneamente para producir el borrado y cursor al ori- 
gen, efecto similar el de la orden Basic CLS de los CPC, en el PCW puede emu- 
larse mediante 


CLS$= CHR$(27)+ “E” + CHR$(27) + “H” 


Ahora puede utilizarse la variable CLS$ para conseguir dicho efecto simultáneo, 
mediante 


PRINT CLS$ 


— ESC “*I”. Igual que ESC “*B”” pero produce el scroll de pantalla si el cursor se en- 
cuentra en la última línea. 


— ESC “*J”. Borra desde la posición actual del cursor hasta el final de la ventana, 
sin mover el cursor. 


— ESC “*K”. Borra desde la posición actual del cursor hasta el final de la línea. 


— ESC ““L”. Inserta una línea en blanco desplazando todas las inferiores hacia 
abajo, sin modificar la posición del cursor. 


— ESC “*M”. Borra la línea en curso subiendo las inferiores un lugar e insertando 
una en blanco al final de la ventana. No modifica el cursor. 


— ESC ““N”. Borra el carácter situado en la posición del cursor, desplazando el res- 
to de los caracteres de la línea un lugar a la izquierda. 


— ESC ““X” f c nf nc. Define la ventana de texto, f y c son las coordenadas de ori- 
gen de la ventana (f= fila, c= columna), nf define el número de filas y nc el de 
columnas. Dado que f y c están afectados por un parámetro de valor 32 y nf y nc 
con uno de valor 31 (-1 +32) la forma adecuada y cómoda de uso es definir una 
función en la forma. 


DEF FN FINS$ (f,c,nf,nc) = CHR$(27) + “X” + CHR$(32 +f) 
+ CHR$(32+c) + CHR$(31 + nf) + CHRSG1 +nc) 


De esta forma la determinación de una pantalla de texto de 32 filas por 90 colum- 
nas (max. en los PCW) se haría en la forma 


PRINT FN FINS (0,0,32,90) 
La definición de ventanas es válida únicamente en los PCW bajo CP/M. 
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— ESC “Y” f c. Sitúa el cursor en la posición f, c (f =fila, c =columna) indicada. 
Esta secuencia es equivalente a la orden LOCATE de los CPC y por tanto puede 
ser emulada en Mallard Basic mediante 


DEF FN LOCATES (f,c) = ESC$ “Y” + CHR$(32+f) + CHR$(32+c) 


y ser utilizada mediante FN en la forma 


PRINT FN LOCATES(f,n) siendo f y c los valores de fila y columna deseados. 

Detrás de esta sentencia debe incluirse el texto a imprimir en esa posición separado 
por punto y coma o bien dejar el punto y coma como final de sentencia con el fin 
de conservar el cursor en esa posición, por ejemplo 


PRINT FN LOCATES (4,5); “TEXTO” 
o bien 


PRINT FN LOCATES? (4,5); 
PRINT “TEXTO” 
— ESC “*b” c. Establece el color de la pluma 


CPC: Sólo se consideran los 6 bits de la derecha. Estos deben tomarse por parejas 
para formar los colores básicos. 


bits color base 
0yl Azul 
2 y3 Rojo 
4y5 verde 


Los valores de intensidad son tres. 


Valor de la 
pareja de bits Intensidad 
00 nivel 0 
01 nivel 1 
10 nivel 2 


Las diferentes intensidades determinan la gama de colores de los CPC. 


PCW: Dado que la pantalla es monocromática, sólo actuan dos valores 


Bin Dec Color 
00111111 63 Claro 
00000000 0 Oscuro 
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— ESC “*c” c. Establece el color de la pluma de forma idéntica a lo expuesto ante- 
riormente. 


— ESC “*d””. Borra la ventana desde el principio hasta la posición del cursor. 
— ESC “e” y ESC ““f””, Activan y desactivan el cursor respectivamente. 


— ESC “*j””. Memoriza la posición del cursor, dicha posición puede ser recuperada 
con ESC “*k”, 


— ESC “o”. Borra la línea en curso desde el principio hasta la posición del cursor. 


— ESC “*p” y ESC “*q””. Activa y desactiva respectivamente el video inverso (cam- 
bio de colores pluma/papel) 


— ESC “*r” y ESC “*u”. Activa y desactiva respectivamente el modo subrayado. 
Unicamente válido para los PCW. 


— ESC ““v” y “w”. Activa y desactiva respectivamente la continuidad de líneas 
(cuando los caracteres de una línea sobrepasan su longitud, estos aparecen en la 
siguiente). 


— ESC “*x”., Activa el modo 24 x 80 caracteres que es el que corresponde al MODO 2 
de los CPC. Borra simultáneamente la pantalla. 


— ESC “*y”. Desactiva el modo de pantalla anterior. 
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Apéndice 7. Editor Sencillo para Ficheros de 
Ordenes 


En distintos apartados se ha mencionado la posibilidad de utilizar editores de texto 
comerciales o bien los facilitados por el sistema operativo CP/M (ED. y RPED), no 
obstante para aquellos lectores que no dispongan de dichos editores y que el manejo 
de los CP/M les ofrezca dificultades, se incluye a continuación un pequeño progra- 
ma en BASIC, que permite su utilización como sencillo editor. Las posibilidades de 
este editor son mínimas, pero suficientes para crear de forma rápida y sencilla pe- 
queños ficheros, su mayor utilidad es sin duda la creación de ficheros de órdenes y 
definición del teclado, como los expuestos en los capítulos O y 1, de instalación del 
Mallard Basic. 


10 ” EDITOR DE TEXTOS SENCILLO 

LEON E EDITOR iio 

30 CLS$=CHRS (27)>+"E'+CHR$(27)+'"H” 

40 PRINT CLS$ 

50 INPUT "Nombre del fichero a crear "¡NFS 

60 INPUT "Maxima longitud de cada linea ”;LON 
70 PRINT CLSS$ 

80 OPEN ”"R”,1,NFS 

90 FIELD 1,LON AS L$ 


100 PRINT"I NTRODUC IR LINEAS DEL FICHERO” 
105 PRINT:PRINT"Linea Tex, to" 

110 PRINT STRING$(63,"”"-"> 

120 WHILE TS$<>”x” 

130 K=K+1 

140 PRINT K;". ";:LINE INPUT ””,TS 


150 IF LEN(TS$>>LON THEN PRINT"LINEA DEMASIADO LARGA”:GOTO 140 
160 LSET L$=TS 

170 PUT 1,K 

180 WEND 

190 PRINT "GRABACION Y CIERRE DEL FICHERO X*X*Xxk ";¡NFS;” xxx" 
200 CLOSE 

210 END 
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OTROS LIBROS PUBLICADOS POR RA-MA 


MANUAL PARA TURBO PASCAL; Guía del Programa- 
dor, J.A. Díaz y L. Suja. 

ISBN: 84-8638 1-27-4. Rústica. 254 páginas. 

Este libro es un valioso manual de referencia y consulta para 
programadores. 

Se ha tratado de forma especial el enfoque de cada capítulo, 
logrando que cada explicación se acompañe de ejemplos, su- 
gerencias, recomendaciones prácticas, detalles de comandos, 
opciones de las versiones 2.xx y 3.xx, etc. 


dBASE II y dBASE Il: Guía del Usuario; G. Burns. 

ISBN: 84-8638 1-24-X. Rústica. 200 páginas. 

Si usted es el tipo de persona que no se satisface con conocer 
la mitad de la historia y cree que puede entender lo que hace su 
ordenador si alguien se lo explica, entonces este es el libro que 
necesita. 

He aquí algunas de sus importantes facilidades: 

—= 100% dedicado a aplicaciones de negocios reales. 

— Explicaciones claras de lo que es una base de datos, y de 

como dBASE III simplifica este modelo. 

— Ejercicios de teclado simples, pero graduados, tanto 

para el principiante como para el usuario más experto. 

— Tratado completo del nuevo sistema dBASE II, con re- 

ferencias a su predecesor dBASE Il. 
— Demostraciones de la conversión de programas del 
dBASE ll al dBASE IL. 

— Explicación de los programas de formateo de pantallas 

de 8 y 16 bits. 

— Listado de programas grandes, completos y funcio- 

nando. 


CP/M, Guía del Programador. CP/M Plus, 2.2 y 1.4; A. 
Clarke, J.M. Eaton, D. Powys-Lybbe. 

ISBN: 84-86381-18-4. Rústica. 350 páginas. 

El libro muestra de forma clara y concisa, como utilizar pro- 
vechosamente CP/M y CP/M Plus, conejemplos detallados de 
comandos y opciones de las principales versiones de CP/M, 

Igualmente incluye herramientas de software (lenguajes y 
editores), junto con una lista que sirve de guía de referencia rá- 
pida. Se utilizan ejemplos siempre que se consideran necesa- 
rios. Los últimos capítulos le ayudarán a profundizaren CP/M, 
mostrándole cómo puede organizar y manipular la memoria y 
el almacenamiento de ficheros. 

Estos son algunos de nuestros libros, si desea recibir lista 
completa solicítela por escrito, o llamando a nuestros teléfo- 
nos (91) 200 97 46/47. 













































































Los Ficheros en el AMSTRAD 


PCW 8256/8512 
y MALLARD BASIC para (PCs, 


Este libro le permitirá trabajar con MALLARD BASIC, 
tanto en los modelos AMSTRAD PCW, como en el 
CPC-6128. 

Su cobertura incluye: 

e Instalación MALLARD BASIC. 

e Manejo de matrices o variables indexadas. 

e Estructuras de almacenamiento transitorio. 

e Manipulación y ordenación de datos. 

e Ficheros: JETSAM, Secuenciales, de Acceso Directo... 
Todo su contenido se ilustra con ejemplos y programas 
de utilidad; y en los lugares apropiados, detalles para 
su correcta aplicación. 

ETA 
Este es el segundo libro de VICTOR J. CAMPO 
publicado por RA-MA. 

El primero: “Los Ficheros en el Amstrad CPC 
464/664/6128” contiene la descripción de toda 
clase de ficheros aplicables a estos, o a cualquier otro 


modelo de ordenador. 
ISBN: 84-86381-30-4 
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